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USERS* MANUAL FOR A PARAMETER IDENTIFIACTION TECHNIQUE 

Gerd Fanning 
Ames Research Center 
SUMMARY 

A digital computer program written in Fortran is presented that 
implements the system identification theory for deterministic systems 
using input-output measurements. The program contains an algorithm 
that detects the existence of nonuniqueness of the parameters and 
reduces the parameter set until a unique set of parameters is obtained. 
The dynamic model of the plant whose parameters are to be identified 
can be nonlinear, time varying and periodic. 

The programs were categorized into user supplied programs, user 
modified programs internal programs and librai programs. To apply the 
identification programs the user makes the necessary changes in each 
category to simulate the model behavior . The user has the capability to 
specify any one of three options. The first option allows for a complete 
model simulation for fixed input forcing functions. The second option 
identifies up to 36 parameters of the model from wind tunnel or flight 
measurements. The third option calculates a sensitivity analysis up to 
36 parameters. An example using input-output measurements 
for a helicopter rotor tested in a wind tunnel is given for 
each option. 
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INTRODUCTION 


Wind tunnel and flight data have been extensively used for 
estimating stability and control derivatives for airplanes and 
more recently also for helicopters. Previously, computer programs 
used for the estimation have been specialized for each particular 
application. In this report a computer program is presented which 
is applicable to a wide range of systems with only minor program 
modifications. The program has* the novel feature of calculating 
the uniqueness of the parameters estimated. This can be of crucial 
importance since input-output measurements often lead to nonunique 
solutions for the parameter values. Nonuniqueness may be due to 
parameter redundancy or insufficient information in the measurements 
and computations . An algorithm was presented in reference 1 that 
detects the existance of nonuniqueness and also determines a unique 
set of parameters. This report makes available the digital computer 
programs used in the above reference and gives a description of the 
programs implementing the system identification theory. 

The dynamic model of the plant must be obtained from the analysis 
of the physical process occurring in the plant. The model can be 

. } ; , JL _ _ 

nonlinear and time varying and must be written in the form x = f(x,t,p) 
The identification program estimates the parameter vector p from 
input-output measurements . 

The digital computer programs were written in Fortran and were 
programmed on an IBM 360/67 computer. The programs were catagorized 
into user supplied programs, user modified programs, internal programs 
and library programs. The user makes the necessary changes in each 


catagory to simulate the model behavior. The user has the capability 
to specify any one of three options. The first option allows for a com- 
plete model simulation for fixed input forcing functions. The second 
option identifies up to 36 parameters of the model from wind tunnel 
or flight measurements. The third option calculates a sensitivity 
analysis for up to 36 parameters. Each option is specified from 
external data cards and the results are displayed on an on-line printer 

PROGRAM DESCRIPTION 

In reference 1 a theory is presented for identification of 
nonlinear systems in the presence of nonuniqueness. In this report 
a description of the computer program is given that represents an 
implementation of the theory. A brief review of the parameter 
identification process is firsu given. Sketch A shows a general 
outline of the identification process. The same input u is applied 
to both the math model and the plant ("plant" refers to the physical 
system from which measured time histories are available and whose 
parameters are to be estimated) . The best values of the parameters 
for the math model are those that minimize the difference between 
the model and plant outputs. The identification process is an 
algorithm that compares the outputs of the math model and plant 
and adjusts the parameter values (such as inertia, spring constant, 
damping constant, etc.) until this difference is a minimum. What 
this minimum should be is established by least squares fit and 

the identification algorithm iterates until this criterion is 

■ i . 

reached. If may not always be possible to reach this minimum 
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Sketch A,- Block diagram of parameter identification technique. 
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or even to obtain an improvement in the matching of the model 
and plant outputs. Problems encountered with the technique and 
some of their soli ';ions are also given in reference 1. This report 
deals only with the description of the computer programs imple- 
menting the theory of reference 1. A flow diagram of the parameter 
identification technique as implemented on the digital computer 
is given in sketch B. This diagram is a" simplified sketch of 
the identification algorithm and only gives those operations that 
are central to the technique. The equations given in the diagram 
follow the development of the identification technique as discussed 
in reference 1. 

The differential equations describing the model can be nonlinear 
and time varying of the form x = f(x,t). The differential equations 
for the plant should be written in first order form to be easily 
compatabie with the computer programs presented. It should be 
noted here that the system equations do not necessarily have to 
be differential but can be of polynomial form. If differential 
equations are not used to describe the model, then slight modifi- 
cations in some of the subroutines presented are required. 

These modifications are pointed out in the description of the individual 
subroutines . 

The order of the differential equations that the programs can 
handle is not restricted. The identification programs are limited, 
however, by the total number of parameters to be estimated and the 
total number of measurements and data points per measurement channel 
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Sketch B,- Flow diagram for parameter identification technique. 





which are used. All of these limitations can be removed if the 
necessary changes are made in the program. The program as discussed 
is limited to estimating a maximum of 36 parameters using a maximum 
of 12 measurements and 200 data points for each measurement. A 
smaller number of parameters, measurements and data points can be 
used without altering the basic parameter identification program. 
Examples for estimating smaller number of parameters are given in a 
later section. 

The capability of the identification program is divided into 
three modes of operation. Each mode is specified by use of input data 
cards as is illustrated in the example section. First, the program 
is run in a simulation mode. In this mode of operation the program 
calculates the system response to specified forcing functions and 
system parameters. The results are stored on disk from which a 
punched card deck is obtained or the results are printed or plotted 
using the on-line printer. Second, the program is operated in the 
identification mode. In this mode of operation/ measurements from 
the plant (max. of 12 measurements and 200 data points per measure- 
ment) are used to estimate specified parameters (max. of 36} of the 
model. The identification program is given nominal values of the 
parameters to start the iteration. It iterates until a best match 
between the measured response and the model response is obtained. 

At the end of the iteration sequence the program, prints the best 
estimate of the parameters which produced the smallest error between 
the measured and calculated response. The measured and calculated 
responses can be stored on computer disk, printed or plotted by the 
on-line printer for visual inspection of the results. The autocor- 
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.relation of the measured and computed output can also be obtained 
in this mode of operation. The results can again be stored on 
computer disk and then printed or plotted. Third, the program is 
operated in the sensitivity analysis mode. The sensitivity is defined 
(ref. 1) as a dimensionless ratio of the change in the output due 
to a change in the parameter. For this mode of operation the user 
can specify the sensitivity analysis of all the parameters that are 
to be estimated. This is done in order to expose those parameters 
that are most sensitive to small variations. The most sensitive 
parameters are then specified in the identification mode since they 
are most critical in matching the measured and calculated response. 

The output for the sensitivity analysis is a table listing of the 
parameters and their sensitivity. Each of these three options is 
demonstrated by an example and the meaning of the output results are 
discussed. 

ORGANIZATION OF PROGRAMS 

The computer programs are divided into four categories: 
user supplied programs, user modified programs, internal programs 
and library programs. Each catagory will be discussed such that 
the user can apply these programs to his particular problem. Table 
1 gives a list of all the programs required for the identification 
of the system parameters. The type of program as catagorized above 
is also indicated in Table 1. The user supplied and the user 
modified programs will be discussed in detail in the following pages, 
while the discussion of the internal and library programs is given 
in appendix A. The program discussion will be divided into a 
section on program "Description” and a section on program "Usage", 
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In the ..Description" section a generel overview of the individual 
function of the program is given while in the "Osage" section tne 
function of each variable in the calling list and variables in the 
common statements pertinent to the particular program are given. 
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TABLE 1. LIST OF IDENTIFICATION PROGRAMS 


1. MAIN2?? 

(user supplied program) 

BYTES OF 
STORAGE 

5032 

2. NEWP?$ 

11 II If 

4404 

3. DERIV$$ 

tt ii ii 

3764 

4. OUTPUT?? 

ii n n 

1792 

5. PRINTl?? 

It II IT 

1564 

6, IDENTl?? 

(user modified program) 

3436 

7. INOUT?? 

H n it 

13224 

8. DYN?$ 

« it it 

1532 

9. READIN?? 

(internal program) 

3652 

10. PARAM?? 

II It 

5600 

11. ADJUST?? 

11 11 

1856 

12. DYDA$$ 

it it 

11688 

13. COR?? 

tf n 

13704 

14. TRADUC$$ 

ii ii 

556 

15. ERROR? $ 

ii M 

2536 

16. CRUNCH? $ 

n ii 

13892 

17. PLOTIN?? 

it it 

3428 

18. INTS 

(library program) 


19. INTM 

20. SETTIM 

11 It 

II II 
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USER SUPPLIED AND USER MODIFIED PROGRAMS 


1. MAIN2$$ 

Description 

MAIN2$$ is the main line program that will call the identif- 
ication program. The parameters of the mathematical model are 
read into the program and the same information is printed. Following 
the execution of these statements, the initial conditions required 
for the differential equations of the model are defined in the 
T array (see description of integration routine) . For the example 
programmed here the A matrir defined by the differential equation 
of the model x - A(t)x + B(t)u is initialized using the system 
parameters. After the initialization of the system equations 
the subroutine I DENT 1 is called. This subroutine calls all 
the remaining subroutines until the identification of the 
specified parameters is completed. 

Usage 

CALL MAIN2$$ 

At the beginning of the program the common /MAIN1/ must appear 
with the T array whose size will depend on the order of the dynamic 
model to be integrated (see description of internal subroutine in 
appendix A) . The remaining variables in common are used in modeling 
the system dynamics for the helicopter rotor example illustrated. 

The user can create new commons to describe his particular mathematical 
model. These common statements should only be present in those 
subroutines the user must supply (see list of user supplied sub- 
routines) . At the end of the MAIN2$$ program the user calls the- 
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subroutine IDENT1 which in turn calls the identification programs. 

2. NEWP$$ 

Description 

The NEWP subroutine is supplied by the user. The subroutine 
lists the parameters of the model uhat are to be identified. The 
list of parameters given for this particular example are shown at 
the beginning of the program where they are defined by the P array 
with the left side of the equation representing the variable name. 

The identification program adjusts the P’s until the best match 
between the calculated and measured data is reached. Therefore 
all coefficients in the model that are effected by the P’s must be 
recalculated every time the subroutine is called. Hence the remaining 
part of the program calculates the coefficients of the mathematical 
model that are effected as the parameters P change . The coefficients 
listed in the program were previously initialized in the main program 
but they must now be updated as the P's are varied. 

Usage 
CALL NEWP 

There are no arguments in the call of the subroutine. The 
labeled commons /MAIN1/, /DERI VI/, /SENTIV/ , /OUTNEW/ , /INFLOW/, 
and /REVSF/ were supplied by the user to define elements of the 
model equations. The labeled common /KPM/ amd /C0M1/ are associated 
with the identification programs and must be present in the program 
exactly as shown. The P array defines the parameters to be identi- 
fied and the N1 variable defines the total number of parameters 
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that can be identified (max. Nl=36) . Following the common state- 
ments, the Fortran statement IF(Nl.EQ.O) RETURN must follow in 
order to by pass the program if no parameters are identified. The 
next statement must be the computed G0 T0 statement 
G0 T0 (1,2,3. . .36) ,N1 

36 

35 

• * • 

* ■ • 

2 BL0SS=P(2) 

1 BIY=P (1) 

If N1 is less than 36, for example Nl=21, then the computed G0 T0 
and the list of parameters must be defined for 21 parameters. (See 
example) . Note that the variables BIY, BLOSS etc. are variable 
names the user assigns to the parameters to be identified. The 
user is free to choose these variable names as long as they are not 
in conflict with the variables lefined in common /RPM/ and /C0M1/. 

3. DERIV$$ 

Description 

The subroutine is supplied by the user and must be compatible 
with the library integration routine used to integrate the equations 
of motion. For the model simulated in this example, the DERIV sub- 
routine evaluates the derivatives of the dynamical equations that 

* 

are written in the form x^Ax+Bu. If the equations are not differen- 
tial and some other means are used to obtain the calculated behavior 
of the model, the subroutine is not needed. The model response is 
then entirely computed in the DYN subroutine (see description of 
DYN) . 
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Usage 

There are no arguments in the calling list. All common state- 
ments except the common /STATE/ are supplied by the user to generate 
the model response. The common /STATE/ must be present in the program 
as shown. The only variable used from the common statement are 
defined by the arrays YM (200 ,12) and SCALE{12) (see READIN subroutine). 
The YM array contains the measured response and the forcing functions 
of the system. The SCALE (12) contains the scaling factors 
required to convert the data in YM to engineering units. For the 
model programmed in DERIV, channels 7 and 8 contained the forcing 
functions of the system. These forcing functions are needed to force 
the mathematical model in the exact same manner as they were used 
to force the actual system. 

4. OUTPUT? $ 

Description 

The subroutine OUTPUT is supplied by the user. The subroutine 
is called by the DYN subroutine whenever a calculated data point 
is to be stored. The program calculates the output matrix y=Cx from 
the state variables x. The results of y are stored in the array 
YC (200,12). The error between the calculated (YC) and the measured 
response (YM) is stored in the array ER(2400) . Finally the calculated 
response YC is weighted by the weighting matrix WEIGHT (12) and the 
result is stored in YW(2400). 

Usage 

CALL OUTPUT 

Three common statements that come from the identification 
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programs must be present in the subroutine. These commons are 
/STATE/, /R PM/ and /WGHT/. The variables used in the OUTPUT sub- 
routine from these commons are ND, NS, SCALE (12) which are defined 
as: 

ND number of data points in each measured output (read from input 
data in the INOUT subroutine) 

NS number of measured outputs (read from input data in the INOUT 
subroutine) 

SCALE (12) scaling factors for 12 channels that convert data from 

integer values to engineering units or back into integer values 
(read from input data cards in the INOUT subroutine) . 

YC (2 00,12) the computed response calculated in the OUTPUT 

subroutine (maximum of 12 time histories containing a 
maximum of 200 data points each) . 

YM(200,12) the measured array brought into the OUTPUT subroutine 

(read from data cards or computer disk by the READIN subroutine) . 
YW(2400) the computed array YC (200,12) weighted by the weighting 
matrix WEIGHT (12) calculated in subroutine OUTPUT. 

ER(2400) the error between the calculated and measured response 
obtained in the OUTPUT subroutine. 

The remaining common statements and variables are unique to this 
particular model simulation. The user must supply the required 
commons to generate the YC(2QQ,12) and YM(200,12) respectively. The 
measured and computed data is converted to engineering units 
with the scale factor SCALE (12) before printing. The array PSIi (200) 
contains the angle measurement corresponding to each measured and 
computed data point. Other variables of interest to the user may be 
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transferred to the subroutine for printing. 

Usage 

CALL PRINT1 

The PRINTl subroutine has no arguments in the calling list. 

All variables are brought into the program through the common /STATE/ 
and /PRIN/. The variables used in the program for the common 
/STATE/ are ND, NS, SCALE(12), YC(200,12) and YM(200,12) which have 
been defined in the discussion of the previous subroutine. All 
variables in the common /PRIN/ are printed out with the on-line 
printer. The only variable of particular interest is the array 
PSI1(200} which contains the angle measurement corresponding to 
each measured and computed data point stored in the matrics YC (200,12) 
and YM(200,12) . The remaining variables are unique to the particular 
dynamic system modeled. The user may change the /PRIN/ common in 
order to transfer variables into the program which he would like to 
print. 

6. IDENT1$$ 

Description 

The subroutine calls a number of subroutines that carry out 
the identification process. At the beginning of the program the 
initial per cent variation for each parameter is set to 1% and 
the weight for all 12 measurements are set to 1. If different 
weights are to be assigned, they can be read into the program 
through input data cards (see example) . The initial conditions 
that are read into the main program and stored in the T array are 
redefined in the matrix XINIR (J) . The remaining part of the program 
primarily deals with calling the input-output subroutine INOUT 

if. 


and the parameter identification routine PAEAM. The subroutine ERROR 
called in IDENT1 calculates the relative error, the correlation 
the autocorrelation of the error and variance of the parameters. 

Three other subroutines called by the program are PRINT1 , CRUNCH 
and PLOTIN. The PRINT1 subroutine prints the results of the identi- 
fication. The CRUNCH subroutine stores the data while the PLOTIN 
subroutine plots the data on the "on-line" printer. Any one or 
all of these options may be specified to be executed by the program 
from the input data cards (see example of data input) . 

Usage 

CALL IDENT1 

The subroutine has no arguments in the calling list of the 
program. All common statements must remain unchanged except for the 
common /MAINl/ „ This common is defined in the main program and 
contains a number of variables that define the parameters of the 
system. The T matrix must be present in this common as has been 
defined in the main program. The variable form common /MAINl/ used 
in the subroutine and its meaning is : 

T(123) an array required by the integration routine AL INTS 
(see description of library subroutines used in the 
program) . 

Note that the remaining variables in this common statement are 
given dummy names since they are not needed in the subroutine . The 
user must store in the XINIT(J) array the initial conditions 
of the model that are defined in the T array (see lines 2900 and 
3300 of subroutine IDENT1 in appendix B) . No further changes in 


the remaining part of the program are to be made 


7. INOUT$$ ■ 

Description 

The subroutine is called by the IDENT1 subroutine and its 
primary purpose is to read and write parameters of the model that 
are to be identified. The measured data is read into the program by 
the use of the subroutine READIN and is stored in the matrix YM(200 r 12). 
The data can either be read from cards or from a computer dish 
as will be described later in the description of the READ IN sub- 
routine . The measured and calculated data is scaled by the scaling 
factor SCALE (J). This is done to compress the measured data on 
cards in order to minimize the number of data cards . Further 
discussion of the format used in reading the measured data cards 
will be given in the description of the subroutine READIN. 

Several options that the user may specify with input data cards 
are also carried out in the program. (See example for data input) . 

The option for simulating the equations of motion with no identi- 
fication is performed in the program between lines 24800 and 26400 
(see listing of subroutine in appendix B) . Control from the program 
is returned to the IDENTl subroutine unless an error in reading the 
data cards is encountered upon which the program stops. 

Usage 

CALL INOUT(JJ) 

The argument in the call is either 1 or 2 . For JJ=1 the 
input cards are read and written out. For JJ=2 the identification 
has been completed and statements form lines 23100 and 24100 are 
executed in the INOUT subroutine. The common statement /MAINl/ 
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are: V . 

T (12 3 ) an array required by the integration routine AL XNTS, 
and OMEGA the angular velocity of rotor. 

The angle increment in degrees and the equivalant time in 
seconds between measured data points must be calculated in- the \ 

7 * 

program. The step size (KDT in millidegree) between measurements is 

V“ 

, . • «r ^ 

'brought into the program from the READIN subroutine. The increments 

. 4 ? 

.... - _ . _ fX 

in degrees (DPSI) and the equivalant time interval (DT) are then y’ 
calculated between lines 10600 and 10800 of the program. 

8. DYN$$ 

Description 

The subroutine DYN is used to call the integration routines 
that integrate the dynamical equations of motion for the mathematical 
model.. The first program called in the subroutine is the sub- 
routine NEWP. The NEWP subroutine initializes 

the parameters in the mathematical model that are to be identified. 
Next the integration routine CALL XNTS and CALL INTM are called. 

These two routines are standard library integration programs 
that integrate first order differential equations of the form 
x-f{x,t,) where x, and x are n-th order vectors and the prime 
indicates differentiation with respect to the independent variable 
t. These two routines also require a user supplied subroutine 
named DERIV. The subroutine DERIV evaluates the derivatives 
and stores them in the array T (4+N) where N is the number of 
differential equations. The T array consists of 12N+3 cells 
if Adams-Moulton option is used or 4N+3 cells if the Runge-Kutta 
option is used. One additional subroutine supplied by the user- 
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and called in DYN is the subroutine OUTPUT. This subroutine is 
called each time a* calculated data point obtained by, the integration 
routine is required to be -stored. The complete time history for the 
mathematical model is thus generated. 

If integration of the equations is not necessaty then whatever 
static equations governing the model behavior must be programmed 
in the DYN subroutine. The integration subroutines and the subroutine 
DERIV are not required. Although the OUTPUT subroutine must be 
supplied by the user and the calculated model response must be 
stored in the appropriate matrices. 

Usage 

CALL DYN (Nl f KT, KMIX) 

The arguments in the calling list are; 

N1 number of parameters (max 36; this parameter is not used in 
the program) 

KT must be set to 1 in the calling program. KT is used in the 
program to initialize T(2) and also acts as a counter to 
keep track of the number of times a calculated data point 
is stored. 

KMIX not used. 

The labeled common /STATE/ must be present in the program. 

This common is used to transfer variables between the identification 
programs , The labeled common /MAIN1/ and /OUTNEW/ are supplied 
by the user to obtain the time histories for the model equations 
programmed. If the integration program is used, the name of the 
derivative subroutine must appear on an EXTERNAL card at the beg- 
inning of the DYN subroutine. 


The remaining programs that are given in table 1 will be 
discussed in appendix A. These programs are not changed by the 
user unless he is acquainted with the functions of the programs 
beyond the brief description given in the appendix. 


SYSTEM DEPENDENT FEATURES 

The only system dependent program in the list of table 1 
is the subroutine PLOTIN. This subroutine requires a printer 
with 125 characters per line and 45 lines per page. 
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EXAMPLES USING THE IDENTIFICATION PROGRAM 


Three examples are given to illustrate the application of the 
programs to a system of the form x=f(x,t). Each example illustrates 
one unique feature of the program. The mathematical model that is 
used throughout these examples is developed in reference 2 , The 
mathematical model represents the flapping and feathering dynamics 
of a three bladed hingeless helicopter rotor in forward flight. The 
equations of the model are linear but time varying and periodic due 
to the forward speed of the rotor. The complete equations written 
in state space form are shown in table 2 . These equations are used 
to illustrate the use of the identification program. 

The three modes of operation for the identification program that 
can be specified by external data cards are simulation, identification 
and sensitivity. Each of these options is demonstrated below by 
use of an example. Regardless of which option is used, the user must 
program the mathematical model equations that simulate the dynamic 
behavior of the system. The changes required in the computer programs 
to incorporate the users mathematical model are outlined in the 
section titled Organization of Programs. 

EXAMPLE 1 : Simulation of Equations 

With the mathematical model incorporated in the identification 
program, the simulation option of the program can be used. The main 
program (MAIN2$$) and the subroutine DERIV and NEWP {NEWP is not 
used for the simulation option but the subroutine must be present 
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in the calling sequences of the program) contain the dynamics for 
the helicopter blade system in this example. The main program reads 
and writes the input data used to simulate the helicopter blade 
equations. The user supplies this portion of the program. The amount 
of data read into the program and written back out will depend on 
the complexity of the users mathematical model. A sample of the 
data input deck that is used to obtain the simulation run for the 
equations of motion is shown in Figure 1(a) and 1(b). Each card is 
numbered from 1 to 54 along the left margin and is discussed below: 


Data Card Input Discussion for Simulation Option 


Card 1 


Card 2 


Card 3 


Card 4-16 


The first card is the users logon card for the computer 
system used. 

This card specifies the disk storage unit 07 and 
identifies the data set by the name SIMUL.R0001. 

The name of the users main program is MAIN2$$. The 
main program is called at this point and is followed 
by the data cards . 

These cards represent the input data for the users 
mathematical model. The user may have more or less 
data cards describing the mathematical model. The 
number of cards will depend on the complexity of the 
mathematical model and on the number of parameters to 
be read into the program to completely describe the 
dynamics of the system. 
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The data cards from this point on are read by the identification 
programs (most of these data cards are read by subroutine IDENT1 and 
INOUT and the format as shown here must be followed exactly) . The 
fortran names for these variables are also given below. 

Card 17 (format 3A4) For the simulation option the following 
characters are punched starting in column 1 *SIMU- 
LATION. 


Card 18 

Card 19 

Nl 

ND 

NS 

KSK 


NS TP 


(format 10A8) On this card any comment may be written 
between columns 1 through 80. 

(format 715, 1211, 13) The variable names read into 
the program from this card are: 
number of parameters - maximum 36 

number of data points over which the simulation is 
performed (ND=199) 

number of measured outputs (not greater than 12) 
the skipping factor for data points to be read (can 
be set to zero for simulation option since no measured 
data is read into the program) 

number of integration steps between measurement inter- 
vals used in integrating the equations of motion (for 
the simulation option NSTP is a skipping factor for 
the storing and printing of the results) 
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KSTOP 


LIST 
UNIT 
I START 
Card 20 
SYMB 

Card 21 
Card 22-25 


Card 26-29 


code number indicating the last data point should 
remain set at 10,000 for the three options illustrated, 
set to zero for simulation option 
set to zero for simulation option 
set to zero for simulation option 

(format 4A1) The variable on this card is defined as: 
four one-character symbols used to plot the time 
histories on the on-line printer. 

This card remains blank for the simulation run. 

(format 6E10.3) The format for each data card is 
6E10.3 with a C in column 65 if the next card is a 
continuation of the parameters to be read. On these 
cards the values of the parameters in the simulation 
option is entered. Since a maximum of 3 6 parameters 
can be identified a maximum of 6 cards can be found 
here. For this case only 21 parameters are investi- 
gated and hence 4 cards are needed with 6 values 
each on the first three cards and 3 values on the 
4th card. 

(format 6E10.3) These cards represent the lower 
bounds of the parameter values that are entered 
on cards 2.2 to 25. For the simulation option these 
cards are blank. The number of blank cards must 
be equal to the number of parameter cards (cards 
22 to 25) . For this case there are 4 parameter cards 
hence 4 blank cards are required. 


Cards 20-33 (format 6E10.3) These cards represent the upper 
bounds of the parameter values that have been 
entered on cards 22 to 25. For the simulation 
option these cards are blank. The number of blank 
cards must be equal to the number of parameter 
cards (cards 22 to 25) 

Cards 34 & 35 (format 12(A4,1X)) Each card contains the name of 
the parameter as they are entered on cards 22 to 25, 

A maximum of 4 characters for each name is allowed. 
There must be as many cards as needed to define the 
name of the N1 parameters. For this case Nl-21 and 
with a format of 12(A4,1X) for each card, two cards 
containing the names of the parameters are required. 

Cards 36-39 (format 6E10.3/6A8/6E10.3/6A8) These cards contain 
the scaling factors and the units for the measured 
and computed data. The scaling factors (maximum of 
12 for the 12 possible measurements) scale the measured 
and computed data between magnitudes of +10,000 for 
internal computation, mhe scaling factors are also 
used to convert the output data back to engineering 
units. For the simulation option the scaling factors 
entered are chosen with some a prior knowledge 
of the magnitude for the output channels. The scaling 
factors are then determined by dividing the largest 
magnitude of each channel by 10,000. 
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The scale factors are entered on the first card 
which is followed by a second card with the units 
of the corresponding channel. The format for the 
scaling factors is 6E10.3 and the units are entered 
with format 6A8 on the next card. The ordering of 
the scaling card followed by the card containing the 
units must be followed if more than 6 scaling factors 
are needed. Also a C must be punched in column 65 
of the first scaling card if more than 6 scaling 
factors are entered. 

Cards 40-42 (format 10A8) The units of the parameters are defined 
on these cards. Ten names are punched per card 
with eight characters for each unit name. As many 
data cards as needed to define the units of all the 
parameters must be supplied. 

(The following three cards are unique to the simulation option.) 

Card 43 For the simulation option the characters DSET05 are 
entered on this card. 

Card 44 The characters RUN are punched in the first three 
columns and a 1 appears in column 6 with a run 
identification number' between 0 and 99 punched in 
columns 8 and 9. In columns 16 to 19 the step size 
to be used by the integration routine in millidegrees 
is entered. For this case the step size is 5778 
millidegrees. 

Card 45 The word END appears on this card for the simulation 
option . 
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Card 46 


Card 47 


Card 48 


Card 49 


Card 50 


(**********) The 10 stars on this card indicate 
the end of the command sequence that started with 
data card 43. 

The first 4 columns will contain the word DSET and 
the next 2 columns contain the disk number {07 
in this example) on which the generated data is 
stored. In columns 9 and 12 the user can enter 
run identification numbers of his choice. 

(* STORAGE) This command must follow the disk number 
card (card 47) with a 1 in columns 11 to 22 if all 
computed data is to be stored. For this example four 
ones appear in columns 11 to 14 to indicate storage 
of the first 4 output channels. 

(*G0 PLOT) This command will prepare the program to 
plot the time histories that are specified by the 
next card. 

(format A8, 12, 415) The first 8 characters contain 
the command **OUTPUT. In columns 10, 15, 20 and 25 
the channel numbers to be plotted are punched, which 
in this example are channels 1, 2, 3 and 4. If more 
than 4 channels are required to be plotted, the next 
card must again start with the command **OUTPUT and 
with the appropriate channel numbers in columns 10, 
15, 20 and 25. 
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Card 51 


(*G0 PRINT) This command will print the calculated 
data that has been stored in the subroutine PRINT1. 

Card 52 (**********) ^he XO stars indicate the end of the 

above command sequence that started with card 47 . 

Card 53 (*RETURN) This card returns command from the subroutine 
IDENT1 to the users main program. 

Card 54 (LOGOFF) This is a job control card that starts in 

column 3 and terminates the execution of the program. 

The exact number of cards as outlined in the example will vary, 
depending on the problem the user is trying to solve. Therefore the 
data input card number will vary from problem to problem. However, 
the order of these data cards must be followed as has been outlined. 

In the next section the corresponding computer output for the simulation 
example is discussed. 

Computer Program Output Discussion for Simulation Option 

Figure 1(c) shows the corresponding output for the simulation run 
when the data input deck of figures 1(a) and 1(b) is executed. The 
output on figures 1(c) and 1(d) are produced by the users main program. 
As was discussed previously the user writes any desired output on the 
"on-line" printer required to describe the mathematical model. The 
output on figures 1(e) to 1 (k) is produced by the identification program 
and is briefly discussed. The title printed on the top of figure 1(e) 
was entered on card 18 of the data input cards . The next 4 lines give 
a print-out of the data read into the program on card 19. The initial 
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conditions printed here were read into the main program and then 
transferred through a common statement into the IDENT1 subroutine (see 
discussion of IDENT1 subroutine) . The remaining print-out on this 
figure follows closely to the information that was read into the pro- 
gram in figure 1(a) starting with card 18. On figure 1(f) the first 
line identifies the run number that was read into the program on card 
44 of figure 1 (a) . The variable KDT on the first line represents the 
step size in millidegrees at which the output data was stored. The 
remaining print -out indicates that the output variables requested 
to be stored have been stored and that an on-line printer plot of the 
data will follow. Figures 1(g) through l(i) illustrate the on-line 
plotting feature of the computed output. Although the title of the 
plots are "Measured and Computed Time Histories", note that for 
the simulation option of the program, only the computed time history is 
plotted. On the right margin of each plot the corresponding time 
(azimuth angle in degrees for this example) is printed for each plotted 
data point. Only a portion of each time history is shown here for 
illustrative purposes. To evaluate the magnitude for each plotted 
axis produced by the on-line printer, the following formula is used. 

The scaling factor of the channel to be plotted is multiplied by 
the largest of the two Fortran variables (MEAS or COMP) printed at 
the end of each plot. This gives the maximum magnitude of the 
y-axis. Since 25 carriage spaces are allowed for the positive and 

negative y-axis of each plot, 1 th of the maximum magnitude gives 

75 

the magnitude of each carriage space. Applying the formula to variable 
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1 of figure 1(g) gives a maximum magnitude of 4000 ft-lbs (SCALE 
(1)* MEAS = (4x10"*) (1x10^) =4000 ft-lbs) or 160 ft-lbs per carriage 

space (^- *4000=160 ft-lbs) . 

The printed output of the plotted data is given on figures l(j) 
and 1 (k) . The information printed on these figures was stored in the 
FRINT1 subroutine (see discussion of PRINT1 subroutine) . For the 
simulation example the data given under the title MEASURED VALUES 
on figure l(j) is the same as given under the title COMPUTED OUTPUT 
VALUES, since no measured data is read into the program for the 
simulation option. Only a portion of the printed data is presented 
to illustrate the output format of the simulation option. The last 
few lines on figure l(k) indicate the end of the simulation run with 
a print-out of the computation time to execute the option. 

Figure 1(f) shows the complete time history for the simulation 
run for 6 rotor revolutions. These plots are produced off-line from 
the computed data that was stored on computer disk 07 under the 
name SIMUL. R0001 (see input data deck figure 1(a) line 2). The upper 
two traces of figure 1(&) represent the roll and pitch hub moments 
while the lower two traces give the swashplate roll and pitch angles 
in rotating coordinates for 6 rotor revolutions. 


Example 2 ; Parameter Identification 


As discussed in example 1, the users mathematical model must 
be incorporated in the identification program. The main program 
(MAIN2$$) and the subroutine DERIV$$, NEWP$$, OUTPUT$$ and PRINT1$$ 
are entirely supplied by the user. Some modifications are required 
of subroutine IDENT1$$, INOUT$$ and DYN$$, A discussion of program 
changes required to incorporate the users mathematical model is given 
in the section "Organization of Programs". All information the user 
prefers to display about the mathematical model should be read into the 
main program and written back out on the on-line printer. This 
has been done for the mathematical model treated here, as was seen 
for the data inputs and print-out of example 1 figure 1(a) and 1(b). 

A similar discussion will follow using the programs in the parameter 
identification option. First the data input cards are discussed 
for this option which are followed by a discussion of the parameter 
identification output. 

A listing of the input data deck for this example is given in 
figures 2(a) and 2(b). The input cards are numbered from 1 to 68 for 
the following discussion. The explanation of some of these input cards 
was given in example 1 where the simulation option was outlined. 

Data Card Input Discussion for Identification Option 

Card 1 The first card as well as the last card (card 68) are 
unique to the users computing system and the user must 
supply these cards. 
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Card 2 


This card defines a data set on which the output 
is stored (disk 10 with the name IDENT. R0026) . 

The disk number to be used for storing the data 
is requested on input card 63. If the user does 
not have the capability of disk storage, then 
the user may either write the output information on 
tape or print the output without storing it. 

Card 3 This card defines the data set on which the measured 

data required for the identification has been stored 
(disk 20 with the name SFCT01. RUH6) . The disk number 
to be used is specified by card 43. If the user 
does not have the capability of disk storage, the 
measured data must be supplied either on tape storage 
or on a punched card deck. Further discussion using 
punched card inputs is given on Card 43. 

Card 4 The user calls the main program on this card. For the 

three examples given here, the name of the main program 
is MAIN2$$. The input cards for the identification run 
follows the calling of the main program. 

Card 5-17 These cards represent the input data the user supplies 
to his main program. The number of cards will depend 
on .the complexity of the users mathematical model 

i 

and on the number of parameters of the model the user 
desires to read into the program. 
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The input data cards from this point on are read by the 
identification programs in subroutine IDENT1$$ and INOUT$$. As has 
been mentioned in the simulation example 1, the format for the input 
data from this point on must be carefully followed. 

Card 18 On this card any comment may be written in columns 
1 to 80. This comment is written at the beginning 
of the identification run. 

Card 19 format (715, 1211, 13) The variables are defined 
as : 

Ml number of parameters - maximum 36 

ND number of data points in each measured output - equal 

to or less than 199 

NS number of measured outputs - equal to or less than 12 

KSK the skipping factor for the measured data to be read 

into the program 

NSTP number of steps between the measurement intervals used 
in integrating the equations of motion - example: if 
NSTP=2 and the data is recorded every 10 degrees then 
the integration step size is 5 degrees 

KSTOP code number indicating the last data point - should 

remain set at 10,000 for the three options illustrated 

LIST this variable is either 0 or 1. If it is set to 1, 

then the measured data read from computer disk, 
tape or cards is written out before the identification 
program. If LIST is set to 0 no measured data is 
printed. 


INIT 


1 START 


3ard 20 


S YMB 

KSWTCH 

ITPL 


IPL0T1 

IPLOT2 

KSKIP 


ITMAX 


0 for identification option 

defines the first value to be read from the measured 
data, {example , if ISTART-5, the program will start 
reading the measured data starting with the fifth 
value) ISTART is normally set to zero 
format (4A1, IX, 615, 15X, F10.5, 1QX, 215) The 
variables on this card are defined as: 
four one-character symbols used to plot the time 
histories 

set to zero for all options 

specifies the iteration number at which a plot is 
requested (the on-line printer produces a two axis 
plot which plots on each axis the measured and computed 
data) 

channel number to be plotted on the first axis 
channel number to be plotted on the second axis 
skipping factor for data to be plotted (example; if 
it is desired to plot the measured and computed data 
of output channel number 3 and 5 at iteration 2 and at 
every other data point, then the above variables are 
set to: ITPL=2 , IPL0T1=3, IPLOT2=5, ISKIP=2 , If all 
of these variables are set to zero, a later option 
(cards 52 to 61 can be used to plot the final results 
of the identification) 
maximum number of iterations 
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1 


THR 


MCOR 


ICOR 


Card 21 


threshold value for subroutine COR - between 0 and 
1 but usually set at about .001. THR is used in the 
dependent analysis of the subroutine COR. The extent 
of the dependence between parameters is specified by 
the threshold value (THR) . For linear independence 
THR=Q and for linear dependence THR=1. For a complete 
discussion of the dependent analysis and the subroutine 
COR see reference 1. 

integer between 0 and 6 which specifies the amount of 
output to be printed from subroutine COR. If MCOR=0, 
no output is printed from subroutine COR while 
MCOR=6 gives the maximum printed output from subroutine 
COR. MCOR is usually set to 6 for the identification 
run. 

iteration number at which the output of the dependence 
analysis in subroutine COR is printed 

(format 3611) The variable name for this card is MNS(Nl) 
A maximum of 36 one-digit integers associated with 
the 36 parameters that can be identified by the 
program. If any one of the 36 integers is set to zero, 
the corresponding parameter is not identified. 

In the example, a 1 has been punched in columns 2,3,4, 
15, 16 and 21 which indicates that parameters associated 
with column 2,3,4,15,16 and 21 are to be identified. 

Note that in this example a maximum of 21 parameters 
of the model can be identified since Ml=21 on card 19. 


37 


INIT 

ISTART 


:ard 2 0 


SYMB 


KSWTCH 

ITPL 


IPLOT1 
IP LOT 2 
KSKIP 


ITMAX 


0 for identification option 

defines the first value to be read from the measured 
data. (example/ if ISTART=5, the program will start 
reading the measured data starting with the fifth 
value) ISTART is normally set to zero 
format (4Al, IX, 615, 15X, F10.5, 10X, 215) The 
variables on this card are defined as: 
four one-character symbols used to plot the time 
histories 

set to zero for all options 

specifies the iteration number at which a plot is 
requested (the on-line printer produces a two axis 
plot which plots on each axis the measured and computed 
data) 

channel number to be plotted on the first axis 
channel number to be plotted on the second axis 
skipping factor for data to be plotted (example; if 
it is desired to plot the measured and computed data 
of output channel number 3 and 5 at iteration 2 and at 
every other data point, then the above variables are 
set to: ITPL- 2 , IPLOTl=3 , IPLOT2=5 , ISKIP=2 . If all 
of these variables are set to zero, a later option 
(cards 52 to 61 can be used to plot the final results 
of the identification) 
maximum number of iterations 
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Card 22-25 (format 6E10.3) The nominal values of the parameters 
to be identified are punched on these cards. The 
names and units for each of these parameters is 
specified latter on in the data deck. The user 
determines the ordering of the parameters in the sub- 
routine NEWP$$ (see description of subroutine NEWP$$) . 
Once this order has been established the parameters 
must be read into the program accordingly. The C in 
column 65 indicates continuation of the parameters to 
be read into the program (also see simulation example 
for this discussion) . 

Card 26-29 (format 6E10.3) The lower limit the identification 
program can adjust the nominal values of the para- 
meters are punched on these cards. The same formating 
is used to read these cards as was used to read in 
the nominal values (card 22-25) . 

Card 30-33 (format 6E10.3) The upper limit the identification 

program can adjust the nominal values of the parameters 
are punched on these cards . 

Card 34-35 (format 12(A4,1X) These cards contain the name of the 
parameters in the order they are entered on card 22 to 
25. A maximum of 4 characters for each name is allowed. 
There must be as many cards as needed to define the name 
of the N1 parameters. 
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Card 36-39 (format 6E10 . 3/6A8/6E10 .3/6A8) These cards contain 
the scaling factors and the units for the measured 
and computed data. For the identification example 
the measured data is read into the program with an 
integer format (see subroutine REAJDIN) . The scaling 
factors used to convert the integer format to engineer- 
ing units are entered on these 4 data cards. If 
only four measurements are read into the program then 
the corresponding 4 scaling factor must be entered. 

The scaling factors for the remaining channels can 
be obtained as has been discussed under the simulation 
example 1. 

Card 40-42 (format 10A8) The units of the parameters are defined 

on these cards. Ten names can be punched per card with 
e^ght characters for each unit name. As many data cards 
must be supplied to define the units of all parameters. 

Card 43 For the identification option this card contains 

DSETxx where xx represents the disk unit on which the 
measured data is stored. If the data is not read from 
a computer disk, then the data can be entered at this 
point using data cards. The procedure for entering 
the data cards has been discussed in the simulation 
example 1(a) under Card 43 to 45. The data cards will 
follow card 44 and are entered with a format compatible 
with the subroutine READ IN $$ . 
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Card 44 


This card contains the command *RELVAR starting 
in column 1. The command refers to the percentage 
variation that each parameter is allowed to vary 
from its nominal value for the first iteration. The 
cards immediately following the *RELVAR command 
contain the percentage variation for the parameters. 

If the percentage variation is set to zero the program 
starts with a 1% change for each parameter. After 
the first iteration the program determines the percentage 
variation internally. At the end of the desired number 
of iterations the percentage variation for each para- 
meter is printed. This information can be read again 
into the program at this point if more iterations are 
required for the same case. 

Card 45-48 (format 6E10.3) These cards contain the percentage 

variation for all the parameters. The same format as 
was used to read in the nominal values of the para- 
meters is used to read in the percentage variations . 

Card 49 This card will contain the command *READWGH. The 

* command refers to the weights that are to be used 

for the NS values. Following the values of weights, 
the values o : f EREMIN and DMIN are read into the 
program. The variable ERRMIN refers to the minimum 
ERROR (error between measured and calculated value) 
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the identification algorithm will stop iterating. 

The value DMXN refers to the minimum value a 
parameter is considered irrelevant in effecting 
the output response. 

For this example four measurements are used for 
the identification of the parameters, hence four 
weights are given on card 49 followed by the 
values for ERRMIN and DMIN. It should be noted 
that the weights for all channels was taken equal 
to 1. The weights should be set to 1 if the measured 
data has been scaled to fall between +10,000 as 
was done in all cases here. If the measured data 
had not been scaled, the difference in magnitude 
between the angle and moment measurements would be 
very large and a weighting factor would be required. 

Card 51 This card contains ten stars (*) indicating the 

end of the series of data cards beginning with card 
44 titled *RELVAR. The starred card must always 
be present regardless of whether the relative variation 
data or the weight data is present. The input data 
cards starting with card 52 and ending with card 65 
are referred to as the second set of input commands 
that must always end with a starred card {card 66) . 
Anyone or all of the options listed can be requested. 

In this example all options are given to illustrate 
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Card 52 


to the user how these options are used. 

The command *G0 PLOT will prepare the program to 
plot some of the time histories that are specified 
by the’ next card. 

Card 53 (format A8, 12, 415) The command card **OUTPUT 
specifies in columns 10, 15, 20 and 25 which 
channels are to be plotted. If more than four 
channels are required to be plotted the next card 
must again be **OUTPUT with the appropriate channel 
numbers in columns 10, 15, 20 and 25. A maximum of 
12 channels can be plotted hence a maximum of 3 out- 
put cards may be required. For this example four 
output channels are plotted and only one output 
command card is needed. 

Card 54-57 (format 8A, 12, 215) The command card **RESAMP plots 
the amplitude and the amplitude difference (residual 
amplitude) between the measured and calculated data* 
The first integer on the **RESAMP card refers to the 
output channel for which the residual amplitude is 
to be calculated. The second integer refers to the 
channel number in which the calculated residual 
amplitude is stored. The computed and measured 
results are then plotted on the left half of the 
computer paper, with the residual amplitudes plotted 
on the right half of the computer paper. 
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Card 58-61 (format 8A, 12, 215) The command card **RESCOR 

plots the amplitude and the residual autocorrelation 
function corresponding to the outputs. The first 
integer on the **RESCOR card refers to the output 
channel for which the residual amplitude is to be 
calculated. The second integer refers to the channel 
number in which the calculated residual autocorrelation 
is stored. The results are plotted as was discussed 
under card 54 to 57. 

Care must be exercised when using the above two options 
that adequate number of channels are available to 
store the calculated residual amplitudes and the 
residual autocorrelations. For example, if it is 
required to make the above calculations for 5 of 
the output channels , then a total of 15 channels are 
required but only 12 channels are available. In 
this case not all the residual amplitudes and resi- 
dual autocorrelation functions can be calculated 
unless three of the output channels are destroyed. 

Card 62 (format 8A) This card contains the command *G0 STORE 
that prepares the program for storing the desired 
channels specified by the next two cards. 

(format 4A, 12, 2X, 212) This card will contain the 
command DSET followed by the disk number on which 
the output data is stored. For this example the 
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disk number is 10 and the name of the data set is 
given on card 2 as XDENT .R0026 . The remaining in- 
tegers on this card can be left blank or used for 
identifying the run number. 

Card 64 (format 8A, 2X, 1211) The command card *STORAGE 
followed by 12 one digit numbers specifies which 
channels are to be stored. If any one of the 12 
channels is not required to be stored then the 
corresponding digit on this card is set to zero. 

Card 65 (format 2A5) The command card *GO PRINT will print 
the data stored in the PRINT1$$ subroutine. 

Card 66 (format 2A5) This card contains 10 stars to indicate 
to the program that the end of the second set of 
command cards has been reached (second set of command 
cards started with card 52) . The number of cards 
between cards 52 and 65 will vary depending on what 
output the user likes to calculate and display. For 
example, the user may have been only interested in a 
plot of the output (command cards 52 and 53) and a 
computer print out of the results (card 65) . In this 
case only three cards would appear between card 51 and 
66 but the starred command (card 66) must be present 
to end this command sequence. 
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Card. 67 (format 8A) The command *RETURN returns control from 

the identification programs to the users main program. 

Card 68 This is the computer job termination card for the 
computer system used to generate the data for the 
identification example discussed here. 

The exact number of cards as outlined in this example will vary, 
depending on the problem the user is trying to solve. However, the 
ordering of the data cards should be followed as has been outlined in 
this example. Some variation in the ordering of the option cards 
*RELVAR, *READWGH, *G0 PLOT, **OUTPUT, *G0 STORE and *G0 PRINT may be 
carried out, although it is best to maintain the ordering that has 
been outlined in this example . Any one of these options or all of 
the options shown in this example may be left out without effecting the 
execution of the program a 

Computer Program Output Discussion for Identification Option 

The computer output produced after executing the identification 
program is shown in figures 2 (c) through 2 (ii) . The printed output on 
figure 2 (c) and the top 2 lines of figure 2 (d) are produced by the 
users main program. The remaining lines on figure 2 (d) are written 
by the subroutine READIN$$ after the measured data is read junto the 
program from disk number 20 (see input data card 2) . The information 
printed indicates that the increment between measured data points (KDT) 
is 11556 millidegree and that every other data point (SKIP) was read. 

A total of 64 data points for each of the 9 channels indicated on 
figure 2 (d) have been read and stored in the program. 
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The printed output on figures 2(e) to 2 (ii) is produced by the 
identification program. All information printed on figure 2(e) was read 
into the program from data cards 18 to 49. Only the initial conditions 
were read into the program from data cards' 5 to 17 and then were trans- 
ferred through common into the identification program. These initial 
conditions are printed on figure 2 (e) along with the remaining para- 
meters of the system. 

On figure 2 (f ) the title "ITERATION 0" is printed and below the 
title the values of the parameters used in the model simulation are 
displayed. These initial parameter values determine the math model's 
response before the identification algorithm is used. The relative 
error and the cost calculated from the difference between the model ' s 
response and the measured data are also given. The relative error is 
defined as the square root of the sum of the error squared divided by 
the area between the model response and the measured data. The cost 
is defined as the sum of the error (between model and measurement) 
squared. When scanning the identification output results the relative 
error and the cost for each iteration should be observed. These 
quantities should decrease after several iterations if the identification 
algorithm is improving the match between the model simulation and the 
measured data. 

The results printed on figure 2 (g) and those on top of figure 2 (h) 
are calculated in subroutine r/OR. The subroutine determines the uni- 
queness of the parameters to be identified. Two examples discussing the 
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output from this subroutine are given in reference 1 on page 51 and 
52. A brief discussion of this output will be given here. The first 
column titled "BASIC PARAMETER" gives a list of the parameters that 
were specified to be identified by the program in order of decreasing 
orthogonality. The second column titled "SEPARATION" give a measure 
of the orthogonality. The third column titled "CRITICAL PARAMETER" 
gives a list of those parameters that may become dependent if the 
threshold e is decreased (The threshold s is the angle between two 
basic vectors; if e=0 the vectors are linear dependent. The threshold 
value was specified on card 19) . The last column gives the separation 
for the critical parameters. The results are interpreted as follows: 
the basic parameter chosen was TWST and the next parameter found by 
the program which was almost orthogonal to the parameter TWST was 
the parameter BETA. The separation between parameters TWST and BETA 
was 9.49E-01. (a separation of 1 would indicate complete orthogonality 
or complete independence between these two parameters) . The critical 
parameter was found to be CLEC with a separation of 1.27E-Q2. This 
indicates that if the threshold was increased from the value specified 
in the program/ the next most likely parameter to become dependent will 
be CLEC. This procedure continues for all the parameters that were 
specified to be identified with the basis vectors becoming less and 
less orthogonal. On figure 2(h) the threshold used in the program is 
printed followed by a line of digits 0 or 2 one for each of the 21 
parameters. The zero indicates the corresponding parameter was not 
requested to be identified. The two indicates the corresponding 
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parameter was specified to be identified and was found to be indepen- 

\ 

dent of the other parameters. A one for any one of these digits 
indicates the corresponding parameters to be dependent on some other 
parameter in the set. All this information is summarized on figure 
2(h) under the titles 11 INDEPENDENT PARAMETERS", "IRRELAVANT PARAMETERS", 
"NOT ESTIMATED" and "NOT USED". The row starting with the word 
STATUS and followed by 21 numbers with the nomonic NU (abbreviation 
for not used) refers to the 21 parameters of the model and whether 
the parameter was requested to be identified. The following row 
starting with the nomonic SENS gives the sensitivity of the parameters 
that were specified to be identified. The last five rows on figure 2(h) 
give the results for the first iteration with the relative error and 
the cost for this iteration printed on the right hand side (note that 
the relative error and cost have decreased from iteration 0) . The 
rest of the information printed on fijure 2 (h) gives the values for the 
identified parameters after the first iteration. The print out on 
figures 2(i) and 2 ( j ) is similar to what has been discussed previously. 
On figure 2 (k) the final results of the identification are given. First 
a fit test between the measured and calculated results is given in 
terras of cost, correlation and relative error which is followed by 
the values of the estimated parameters. The name of each parameter and 
its estimated value, error bounds, units, sensitivity and dependency 
index for each parameter is given. Following this print out the out- 
put requested on data cards 52 to 62 is displayed. 
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The *G0 PLOT command initiates the plotting of variables specified 
on data cards 52 to 61. The computer plot of variables stored in 
channels 1, 2, 3 and 4 are plotted on figures 2(e) through 2 (o) , On 
these figures the comparison of the measured and calculated variables 
are plotted with the corresponding time (angle measurement) printed 
on the far right side of the figures. In order to evaluate the magni- 
tude of each plotted axis produced by the on-line printer , the following 
formula must be used. The scaling factor of the channel to be plotted 
is multiplied by the largest of the two Fortran variables (MEAS or 
COMP) printed at the end of each plot. This will give the maximum 

magnitude of the y-axis, Since 25 carriage spaces are allowed for the 

1 

positive and negative y-axis of each plot, of the maximum mag- 

nitude gives the magnitude of each carriage space. (see example 1 
where this calculation has been done for illustrative purposes) . 

The information printed on figures 2 (p) through 2 (w) was specified 
by data cards 54 thru 57 with the option cards **KESAMP. The **RESAMP 
option calculates the residual amplitude correlation for the measured 
and calculated output. On the left side of figure 2 (p) the measured 
and calculated output for the first channel is plotted and the resulting 
amplitude correlation is plotted on the right side of figure 2 (p) . The 
results for the next 3 channels are plotted on figures 2(r) to 2 (w) . 

The plot on figure 2 (x) gives the residual autocorrelation of the 
error between computed and measured data for channel 1. The measured 
and calculated results are plotted on the left while the residual 
autocorrelation function is plotted on the right side of figure 2 (x) . 
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The residual autocorrelation for channel 2, 3 and 4 are given on 
figures 2{z) and 2(ee). 

At the middle of figure 2 (ee) the command to store the calculated 
data on computer disk is printed. This command was given on data 
input cards 62 to 64. At the beginning of the data deck, disk unit 10 
was specified for storing the output data under the name IDENT. R0026. 

On figure 2 (ff ) run identification numbers specified by the user, 
the step size in millidegrees and an identification digit of 0 or 1 
(0 indicates the variable is not stored while a 1 indicates the corres- 
ponding channel is stored) are printed. This information was read 
into the program from data cards 63 to 64. The results on figure 
2 (gg) confirms the storing of each channel as it was stored on disk. 

Also a scale factor to be used by the user in retrieving the data from 
disk is given for those channels that require a new scaling factor. 

The scaling factors for channels not given on figure 2 (gg) must use 
the scaling factors given on data card 36 to 39 of the input deck. 

The final output for this identification run is given by the 
command *GO PRINT. This command prints the channels the user has 
requested in the subroutine PRINT1$$. For this example measured 
and computed results of the identification are printed on figures 
2 (hh) and 2 (ii) , 

The information stored on computer disk (unit 10 under name 
IDENT.RO 02 6) was plotted more accurately (as compared to the on line 
printer plot) with a CALCOMP plotter and is shown in figures 2(jj}& 2 (kk) . 
The upper traces of each plot show the comparison of the measured and 


50 


calculated results after two iterations using the identification 
program. The middle trace is a plot of the residual amplitude 
correlation while the bottom plot shows the residual autocorrela- 
tion of the error between computed and measured data. 

This completes the discussion of the input data cards and corres- 
ponding computer output for the program in the identification mode. 

For this example only two iterations had been specified, although the 
format for the output will be similar if more iterations are required. 

In some cases the program may stop before the total number of iterations 
specified have been reached. This will occur if the algorithm can 
not find further improvements in the time history matching between 
measured and calculated data. 
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Example 3: SENSITIVITY ANALYSIS 


This example outlines the procedure to he followed to obtain a 
a sensitivity analysis of the model parameters. With the users mathe- 
matical model incorporated into the identification programs as discussed 
under "Organization of Programs" the sensitivity analysis can be obtained. 
The sensitivity as calculated in this program is defined as a dimensionless 
ratio of the change in the output due to a change in the parameter. 

A similar procedure used in examples 1 and 2 to obtain the simu- 
lation and identification runs is used to obtain the sensitivity 
analysis. First/ the data input deck for the sensitivity analysis 
is discussed line by line. Second, the corresponding output obtained 
by executing the input deck is given. 

A listing of the input data deck is shown in figures 3 (a) and 
3 (b) . The input cards are numbered from 1 to 49 for the following 
discussion. It should again be pointed out that the user may not 
lave the same number of data cards. This will depend on the complexity 
of the users mathematical model and on how much data he prefers to 
read into the program and the number of parameters to be identified. 

For this example the sensitivity analysis is performed for 21 
parameters, although the program has the capability to obtain the 
sensitivity analysis for 36 parameters. 

An explanation of the input data cards shown in figures 3 (a) and 
3 (b) is given below. 
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Data Card Input Discussion for Sensitivity Option 


Card 1 This is the logon procedural card for the 

computing system used to execute the program. 

Card 2 The user calls the main program on this card. 

Card 3-15 These cards represent the input data the user 

supplies to the main program that describe 
the mathematical model, (Same as in example 
1 and 2) . 

As in the previous two cases, the input cards from here on 
are read by the identification subroutines. 


Card 16 


Card 17 


Card 18 
HI 
ND 

KSK 
NS TP 

KSTP 


(format 3A4) The command card ^SENSITIVITY 
defines the sensitivity option of the identifi- 
cation programs. 

(format 10A8) Any comment can be written on 
this card by the user. This comment is written 
at the beginning of the computer print-out. 

The name of the option used is an appropriate 
comment to be punched on this card. 

(format 615} The variables are defined as: 
number of parameters - maximum 36 
number of data points over which the sensitivity 
analysis is to be caluclated (ND-199) 
set equal to 0 or 1 for sensitivity analysis 
number of integration steps between the measure- 
ment interval specified by card 43 
a code number set to 10000 for the sensitivity 
option 


S3 



Card 19 


(format 4A1, 46X, F10.5, 1QX, 215) The vari- 
ables on this card are defined as: 

SYMB left blank for the sensitivity analysis 

THE threshold value for subroutine COR which can 

take on values from 0 to 1 but is usually set 
to .001. (see explanation on Card 20 of example 
2) 

MCOR set to 6 for the sensitivity analysis 

Card 20 (format 3611) A maximum of 36 one-digit 

integers associated with the 36 parameters. 

For the sensitivity analysis the integers must 
be set to 2 if the sensitvity of the parameters 
is to be obtained or 0 if it is not to be cal- 
culated . 

Card 21-24 (format 6E10.3) The nominal values of the para- 

meters for which the sensitivity analysis is 
to be calculated. (See discussion under example 
2, Card 22-25). 

Card 25-28 (format 6E10.3) For the sensitivity analysis 

these cards are blank. The number of blank 
cards must be equal to the number of parameter 
cards (cards 21-24} , 

Card 29-32 (format 6E10.3) These cards are blank for the 

sensitivity analysis. The number of of blank 
cards must be equal to the number of parameter 
cards . 
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Card 33-34 


Card 35-38 


Card 42 


Card 43 


Card 44 


Card 48 


(format 12 (A4, IX}) These cards contain the 
name of the parameters whose nominal values where 
given on Cards 21 to 24. 

(format 10A8) The units for the parameters 
given on Cards 21 to 24 are specified on these 
cards. Ten names can be punched per card 
with eight characters for each unit name. As 
many ^ata cards are supplied to define the 
units of all parameters. 

(format A3 , 12) For the sensitivity option 
the characters DSET05 are entered on this 
card. 

(format A3, 213, 6X,I5) For the sensitivity 
option the work RUN appears in the first 
three characters of this card. The next 
two integers can be used by the user for 
run identification purposes. The last 
integers represent the measurement interval 
or the step size if NSTP on card 18 is set 
to 1. For NSTP>1 the measurement interval 
will be divided by NSTP., 

(format A3) This card must contain the word 
END. 

This is the computer job termination card for 
the computing system used to generate the 
sensitivity analysis. 
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As in the previous two examples some variation in the number 
of data cards for the sensitivity run may occur, but this will 
depend on the problem the user is trying to solve. The order 
of these data cards will remain the same for the sensitivity 
option. The computer output obtained after executing the sensi- 
tivity example data cards is discussed below. 


COMPUTER PROGRAM OUTPUT DISCUSSION FOR SENSITIVITY OPTION 

Figure 3 (c) shows the computer printout for the sensitivity 
example. The output on figure 3 (c) and part of figure 3(d) 
are produced by the users main program as has been previously 
discussed. The bottom two lines on figure 3 (,d) represent the 
beginning of the sensitivity analysis output. These two lines 
were entered into the program from data cards 16 £nd 17 and are 
displayed here. On figure 3(e) the identification program 
displays a message that is printed from the READIN$$ subroutine 
which has no meaning for this option. The remaining informantion 
printed on figure 3(e) was specified on data cards 18 and 42. 
Figure 3(f) is a printout of information that was entered through 
data cards 16 to 41. This printout is similar to that shown for 
the simulation and identification example. The last 5 lines 
on figure 3 (f ) are a printout of the model parameters used in 
the model simulation for obtaining the sensitivity analysis. 

The information printed on figure 3 (g) is the result of 
the dependent analysis performed in subroutine COR (see reference 
1) . The first column titled "BASIC PARAMETER: gives a list of 
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the parameters in order of decreasing orthogonality. The second 
column titled "SEPARATION" gives a measure of 'the orthogonality. 

The third column titled "CRITICAL PARAMETER” gives a list of 
those parameters that may become dependent if the threshold 
is increased. (The threshold e is the angle between two basic 
vectors; if ^=0 the vectors are linear dependent. The value for 
€ was read into the program on data card 19} . The fourth column 
titled "SEPARATION" gives the separation for the critical para- 
meter. To interpret the output listed in the four columns, one 
observes first what the "basic parameters" are for the model and 
next which parameters are the "critical parameters". As an example, 
the first parameter printed is GYIP, and. the next parameter 
selected by the program is LAMX with a separation of 1 which 
indicates orthogonality between these vectors. The critical 
parameter associated with LAMX is BIX with a separation of 
i . 06E-01 . The next basic parameter found is BETA with a separa- 
tion of 9.03E-01 and the corresponding critical parameter is SWEF 
with a separation 7.68E-02. This procedure continues for all 
the parameters of the model with the basic vectors becoming less 
and less orthogonal. Following this output parameters of the 
model not listed in the first column that are dependent, irrele- 
vant or that have been discarded a priori by the user are given. 

In this example GSPD, GYIP are found to be dependent. 

The program next indicates that if GSPD is increased by one 
unit (absolute variation-symbolized by a prime} then GYIP will 
decrease by -5.66E-03 units. The same reasoning follows for the 
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remaining parameter listed on figure 3 (g) . This information is 
useful in estimating the error in GYIP due to the lack of know- 
ledge of parameter GSPD. 

On the top of figure 3 (h) the number of parameters and the 
threshold used in this analysis are printed. Below this line 
the words "MAGIC NUMBER" is written followed by a number either 
0, 1, or 2 for each of the parameters of the model {21 in this 
example) . The numbers have the following meaning: 0 indicates 

the corresponding parameter is irrelevant or was requested by 
the user to be held fixed, 1 indicates that the corresponding 
parameters is a dependent parameter and 2 indicates that the 
parameter is independent for the mix of parameter chosen for the 
sensitivity analysis. The results of the dependent analysis are 
summarized by the printout starting on the third line from the 
top of figure 3 (h) . At the bottom of figure 3 (h) the parameter 
increments for each of the parameters for the gradient evaluation 
are printed. For the parameter identification option, this 
information can be entered into the program with data cards. 

(See parameter identification input data example) . 

The results printed on figure 3(i) give the sensitivity 
for each of the parameters (21 for this example) . The sensitivity 
is a measure of the model 1 s response to a parameter change. A 
sensitivity of 1 corresponds to a direct proportionality between 
the corresponding parameter and the output. If the sensitivity 
is very small with respect to 1 it indicates that the output is 
almost independent of the parameter. The parameter names are 
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listed in the first column and their sensitivities are given 
under the column titled "SENSITIVITY 1 *. The dependency of the 
parameters as has previously been discussed are also given under 
the column "DEPENDENCES INDEX". 

The remaining printout on figure 3 (i) indicates the end 
of the sensitivity run and the computation time required to per- 
from this run. 


59 


i- LOGON FSTGK,MAINPR,feb JFST19 T4947 »GERD KANNING STOP 17 PH 5455' 
2. DDEF FT07F001, VS,SIMUL,R0OO1 
3 CALL MAJN2S5 


4 

0 0 0 

0 10 0 







s 

+ . 4 Q 

+00+ , 268 

+ 0 3+ , 2684 

+03+.165 

+02+.117 

+01+. 97 

+ 00 


6 

+ , 15 

+0 L +.1956 

+03+ , 1 86 

+01+.4566 

+01+.00 

+ QQ +, 12021+06+, 145 

+ 01 

T 

-.943 

+01+.225 

+0 1 + , 0 

+00+.70 

+02+.224& 

-02 



a 

+ ,o 

+ 0 0 + , 0 

+00-.2428 

+0 i +. 11296+01+, 10 

-01 



9 

+,1912 

+ 0 1 466 b 

+ 0 1 + , 14 

+01-,12535+02+,592 

+00+, 1481 

+024,857 

+ 01 

ID 

+ .3 

+00+.15 

+00+.60 

+ 0 2 + , 0 0 

+00+, 10200+05+.87 

+ 00 


u 

+ .00 

+00+.70 

+01+.80 

+ 02 





12, 

+»2 b 52 

+01-,285 fa 

+ 02-. H 5 

+01-.519 

+02-.507 

+02+.121 

+ 02 


13 

+.1768 

+ 01 

-.252 

+ 01 





14 

+ .5778 

+01+.00 

+00+, 00 

+ 0 0 + « 2 

+ 01 




15 

1 

+ .10 

+02+, 10 

+02+, 10 

-01+.1 Q 

-01 + , 1 

-0 1 + . 1 

-01+.1 

-01 

IT 

♦SIMULATION 







)8 

HELICOPTER ROTOR 

SIMULATION 

i WITH NOMINAL VALUES 

FOR THE 

model parameters 


19 

21 

199 4 

0 210000’ 0000000 




20 

21 

Q *+, 







21 

+ .26 B 

+03+ , 97 

+00+ , 867 

+01+, 12021+06+, 4566 

+01+.15 

+ 01 

C 

O '. 23 

+ .87 

+00-.699 

-02**. 10 

-04+, 1 -04+, 1 68 

+01 + ,225 

+ 01 

c 

° M 

+ * 1 

-01+. 355 

+ 00 + , 80 

+ 02+ » 7 +01 + .4 

'+00+.5296 

+ 02 

c 

25 

+ .3 

+00+.15 

+00-.943 

+ 01 





X 

rt 

?& 

2 ? 

a>! 

52 

53 

34 BIT ,L05S,CLEC#fcfcTA,LuCK, S*EP, CH#LAM , LAM X , L AMY , BRDO, PCON, 

35 CD# MU#CDMP, PUMP, bIX,GSPt),GYlP,yyiO, TWST 

36 +,40 +00 + , 40 +00 + .5 -03+.5 -03+.1 +01 + .1 +01 C 

37 FT-LB5 F T -LBS DEGREE DEGREE 

■33 +«1 +0 1 + , 3 +01 

cF) 

4-0 SLUG , F T 2 (NQ OIMjDtG F TLB/PAD (NO 0 ( f vO DIM) (NO 01 M)£N0 DIM)(NO DIM) 

4f FT DEG (NO DINJCNO DIM 1 F TLB/H , SFTLb/K , SSLUG, F T2 t NO D IM) SLUG, F T2SLUG ,F T2 

4? DEG 

43 DSET 5 

44 RUN i b 5/78 

45 END 

CaJ Data input deck. 

Figure 1.- Simulation run. 






^ *-********* 

47 DSETO? 0106 
46 *ST0RAGE 1111 
4^ *GO PLOT 

★★OUTPUT 1 2 3 ' 4 

★ GO PRINT 
★★****★★★ 

★RETURN 
54 LOGOFF 


(to Data input deck. 
Figure 1.- Continued. 


TWO DEGREE OF FREEDOM HELICOPTER BLADE AND GYRO SIMULATION 


PROGRAM CONTRO’L LOGIC 

IFLDQ* 0 IHlfiGE* 0 2B.Q I * JL __ JLNE w s_ 0_ JSIHL F. ... L.LF LOW =„0 IR.ECsjJ. 


. BlAPiL.EABMElfLR5 .. , . 

aixa 0,40 BIY*26B,00 8123268,40 RADIUSES, 5 CHORD*l t 17 BLADE LOSS=,97 

SWEEP* 1,60 RPM* 1 92,6 HINGE .POSITION*!, 68 LOCKS 4,S6b DELTA?* 0,0.0 K 8ETA=0 4 1202 JOE 06 PI*. .J 4 \S 

TwIST* -9,43 PRECONEs 2,260 CT* 0,0000 AIR VELOCITY* 70,00 AIR DENSITY* ,002296 ALPHA* 0,000 ALPHmSs 0,000 
LITTLE A,IS= 0,000 LITTLE 81 S* 0,000 BIG MSs-2,428 BIG BlSs t,13o’ 00=0,010 LAMsO, 000000 LAMXaO t OOOOOO LAMYsO, 000000 


BLADE INITIAL CONDITIONS 

BET Al* 1,912 BETA 1 RATES -9,67 BETA2* 1,900 BETA2 RATEs -12,53 BETAis 0,692 BET A3 RATfcs I a .Si COLLECTIVES 6,6 


m GYRO PARAMETERS 

IPs 0,300 IDs 0,160 GYRO ANGLE* 60,0 GYRO DAMP L* 0,00 GYRO RPMsiq 200,0 MECHANICAL ADVANTAGE C2*Q,87C 

FEATHERING RESTRAINT KzETAs 0,00 FEATHERING DAMPING CZETAs 7,00 SwASHPLATE DAMPING CSDAMPs 80,00 PSIOFe 0,00 


INITIAL CONDITIONS ON GYRO 

OELT A 1= -2,652 OELTA1 RATE* **28,56 D£LT A2= -1,150 DELTAS RATE* -51,90 Nujs-60,70 NU2* 12,10 


PHI s 1,768 RPHIs 0,00 THETs -2,520 RThETs 0,00 RMBIASs 0,00 PM8IAS= 0,00 RABJASs 0,000 PA8I AS* 0,000 


INITIAL CONDITIONS FOR STARTING AND STOPPING THE INTEGRATION ROUTINE 
WELPSI* 5, 7B REVSs 0,00 REVO* 0,00 REVF= 2,00 TKUNCsO , GOOD 


SCALE FACTORS FUR PLOTTING PROGRAM 

SCALE C 1 1 SCALE (2 ) SCALE C3) SCALE (9) SCALEI5) SCALE £6) SCALE (7) 

l.OOOE ot l.OOOE 01 1 , 000E-02 1,OOOE-02 1 . 000 E -02 1 , OOOE-02 1.000E-02 

SCALEC8) SCALEC9) SCALEUO) SCAtE(U) SCALEU2) SCALt(li) SCALEC19) 

0,000 0,000 0,000 0,000 0,000 0,000 0,000 



(c) Output, 
Figure 1.- Continued. 



PARAMETERS CALULATED FROM INPUT DATA 
OMFfcA* dO.169 GYSPfc. D= 5 ?.yio Ktl* 0,35b L AMbOAs- , 00&999 

DtLTAT = 0,5000t'*02 T IMES=0 B t!%Q T1MEO=0 ,0000 TIM£F:*(M231E 00 

^simulation 

HELICOPTER ROTOR SIMULATION «ITH NOMINAL VALUES FQK THE MODEL PARAMETERS 

DATA CARDS LISUNG*a***HUN NUMBER 1- 6 
X AXIS INCREMENT rtOlsr 1 1 5bt> SKIPS £ 199 POINTS PER CHANNEL 

THE 0 FOLLOWING CHANNELS WERE READ I 0# 


/ 


o 

w 


Cd) Output. 
Figure 1.- Continued. 


HELICOPTER ROTOR SIMULATION *ITH NOMINAL VALUES FOR THE MODEL PARAMETERS 


21 PARAMETERS h outputs 

199 MEASURED VALUES PER OUTPUT { 796 MEASUREMENTS), 2 WAS THE’ SKIPPING FACTOR USED 

TIME IMtRVAL BETWEEN MEASUREMENTS 0,0050 SEC, 2 STEPS OF INTEGRATION IN EACH INTERVAL 

ANGLE INCREMENT BETWEEN MEASUREMENTS b,7B DEG 


INITIAL CONDITIONS 

4.629E-02 -4,9B5fc-01 -2,0075-02 

•»9, Q58E-01 

3.337E-02 

"8 , 1 44E“02 

2,443E»Q2 *2, 1BBE-0 1 

1.033E-02 

2,5855-01 

.. 




SCALING FACIOK^ FOR DATA UNITS 
1DTU- ■ « f OOOE-01 FT-LBS / 4.000E 

1,0 ODE 00 / 1,00 OE 00 

"01 FT -LbS 
/ 

/ b,000t- 

DEGREE 

/ 5.000E-04 DEGREE / 

1 , OOOE OO 

/ 

t.OOOE 

00 

r 

PARAMETERS NAME5 

l) div 2) LOSS 3) CLEC 

4) BETA 

5) LOCK 

63 SwEP 

7) C2 

6) LAM 

9) LAMX 

10) LAHY 

11) BRDO 

12) PCON 

1 3) CD 14) Mo 15) COMP 

16) '•DMP 

17) BIX 

18) GSPD 

19) GY I P 

20) GVIO 

21) TWST 




” 

INITIAL VALUES UF ThE PARAMETERS 
2.680E 02 9.700E-01 8,b70£ 00 

1.202E Ob 

4,566b 00 

1.500E 00 

B.700E-01 "6 1 990 E"0i 

-i,000fc"05 

1 , OOQE-Qb 

1.08OE 

00 

2 , 25 0 E OO” 

i ,000E-02 i,bb0f»0 1 8.000E 01 

7 , 000E 00 

4,-OOOE-Ol 

5.296E 01 

3, QOOE"0 1 

l,bD0E-01 

-9 1 (J30t 00 







(e) Output. 
Figure 1.- Continued 


NTAPE 1 nHUN 6 


KOT-1 lSSb 


VARIABLES STORED ARE IDENTIE JED BY A 1 In COLUMNS II TO 22 AFTER THE COMMAND *STDKAGE 

★ STORAGE 1 1 11 OOOOOOOO 
VARIABLE 1 IS STORED 
VARIABLE 2 IS STORED 
VARIABLE i IS STORED 
VARIABLE il IS STORED 
End 

SIMULATED Run l b COMPLETED And STORED On unit 7 


*GO PLOT 


**OUTPuT 


[£) Output, 
Figure I.- Continued. 


MEASURED AND COMPUTED TIME ttlSTOH IE5 


SrUdObS /vAHIrtBLe 1 0 MEASURED, * COMPUTED 


CA 

O' 


I * 
I* 

* I 


* I 

* l 
* ' 1 

* 1 

* 1 

* ‘ I 

* I 

* I 

* I 

* I 

* I 


. * I 
* I 
* 

I* 

I * 

I * 

I * 

I * 

I * 

I * 

I * 

I * 

I * 

I * 

I * 

I * 

I * 

r * 


Cl 

* I 


* I 

* I 

* I 

* ■ I 

*. I 

* I 

* I 

* r 


/VARIABLE 2 + MEASURED i 



(g) Output, 
Figure I.- Continued. 


COMPUTED/ 


t 


"Ti ft 

1 1,556 
23,112 



46,2 24 
57,760 

_ 

60,892 
92,448 
. 10.4,0 04.... 
115,560 
127,116 

- ULgL,.6Z2__ 

150,228 
161,764 
.lU f l«fi .. 
134,896 
19E..452 

2.Q6.Q.Q& 

219,564 

231,120 

M2*A2i t. 

254,232 

265,788 

-2.77,344 

288,900 

300,456 

... j.ia*ai£ 

323,568 
335,124 
346,680 
358,236 • 
369,792 

38 1*348 

392,904 

404,460 



427,572 

439,128 

45.0.6M 

462,240 

473,796 

485.36? 




MAXIMA J 


SYMBOLS 


<71 

'-I 


* 

* 

VARIABLE I 
/YARIAHLE 3 

i 

i 

i * 

m£ass i,ooat o<i, comi-‘" i,ooot 

MEASURED AND COMPUTED 
U MEASURED, * COMPUTED, 

, i 
.1 

i 

04 VARIABLE 2 MEA5* 1,000E 04, C(JMR = 

time histories 

/VARIABLE 4 + HEASUREO, , COMPUTED/ 

2264,976 
2276,532 
, 2268,066 
1,000b 04 

TIME 


I 

A 

. 1 

0,000 


I 

A 

9 I 

11,556 


I 

A 

, I 

23,112 


I 

A 

. I 

34,662? 


1 

A 

, I 

46,224 


l* 


, I 

57,780 


* I 


. I 

69,336 

A 

I 


. I 

60,892 

A 

I 


. I 

92,448 

A 

I 


. I 

104,004 - 

A 

I 


, I 

115,560 

A 

I 


. 1 

127,116 

A 

I 


* I 

138,672. 

A 

I 


,1 

150,223 

* 

I 


2 . 

161,784 

* 

1 


2 . 

173,34.0 

A 

I 


2 

184,696 

A 

I 


I 

196,452 

A 

I 


I . 

208,008 

* 

J 


I 

219,564 

A 

I 


I 

251,120 


A 


I 

242,676 


i * 


l 

254,232 


i 

A 

I 

265,788 

- 

I 

A 

1 

277,344 


J 

* 

2 

288,900 


I 

A 

I 

300,456 


I 

A 

1 . 



I 

A 

V 

323,568 


i 

A 

. I 

335,124 


I 

A 

. I 

346,680 


i 

A 

. 2 

358,236 


i 

A 

. 2 

369,792 


I 

A 

. 2 



i 

A 

. I 

392,904 


I* 


, 2 

404,460 


A I 


, 2 

416, 01.6 

A 

i 


. 2 

427,572 

A 

i 


. 2 

439,128 

i 

l 


. 2 

460.684 

A 

1 


. 1 

462,240 

A 

1 


. I 

473,796 


I 



I 

465.352 


(h) Output, 
Figure 1.- Continued, 


i dr 


i 

* i 

£ * 

MAXIMA i YAHlAbLfc i NF-ASs l.ooofc 04 , CUMps l.OOOE 04 


, I 2364,976 

, I 2276, 5i2 

i , . .22efl,_Qas 

VARIABLE « HtAS= l.OOOE 04, CQMPs l.OOOfe 04 


*GU PHIM 


O' 

00 



(i) Output. 
Figure 1.- Continued 


COMPUTED UuTPul VALUES 


MEASURED VALUES 


COMPUifcD VALUES 


PSI 

MBET AX 

M 0 E UV 

ROLL A 

PITCH 

0.00 

1069,2 

- 1921,0 

2,652 

- 1,150 

n, 5 t» 

917,5 

- 1760,0 

2.319 

- 1 , 608 

■ 10.67 

- 370,6 

- 1072,2 

1,016 

- 2,016 

06,22 

- 1019,9 

- 1305,2 

0,605 

- 2,655 

57,76 

- 1506,6 

- 1200,2 

0,330 

- 2,762 

69,30 

- 2030,2 

- 1100,0 

- 0,225 

- 2,790 

00,69 

- 2350,9 

- 1057,0 

- 0,761 

- 2,679 

92,95 

- 2061 , 2 

- 090,8 

- 1,255 

- 2,050 

10«,00 

- 2027,0 

- 697,5 

- 1,692 

- 2,126 

115,56 

- 2206,0 

- 032,2 

- 2,050 

- 1,711 

127,12 

- 1950,9 

- 96,5 

- 2,320 

- 1,227 

130,67 

- 1590,5 

299,7 

- 2,506 

- 0,697 

150,23 

- 1209,6 

730,6 

- 2,501 

- 0,105 

161 , /fl 

- 020,0 

1176,1 

- 2,509 

0,003 

173,30 

- 002,6 

1585,0 

- 2,011 

0,923 

100,90 

- 105,5 

1922,1 

- 2,173 

1.390 

196,95 

60,0 

2109,8 

- 1,805 

1,795 

200,01 

261,0 

2202,0 

- 1,039 

2,111 

219,36 

030,7 

2106,0 

- 0,973 

2,331 

£ 231,12 

585,0 

1905,0 

- 0 ,066 

2,009 

202,66 

700,2 

1650,5 

0,059 

2,060 

259,23 

906,2 

1236,5 

0,579 

2,368 

265,79 

1003,0 

765,1 . 

1,070 

2,177 

277,33 

1266,1 

280,3 

1,511 

1,097 

200,90 

1037,8 

- 176,9 

1,000 

1,540 

500,06 

1570,0 

- 575,0 

2 , 162 

1,121 

312,01 

1609,3 

- 692,7 

2 , 3 o« 

0,658 

323,57 

1638,3 

- 1 120,2 

2,019 

0,160 

335,12 

1520,7 

- 1258,7 

2,380 

- 0,328 

306,60 

1303,0 

- 1318,0 

2,203 

- 0,809 

350,20 

900,2 

- 1310,2 

2,000 

- 1 ,255 

369,79 

576,0 

- 1277,0 

1,678 

- 1,608 

301,35 

121,6 

- 1215,5 

1,282 

- 1,970 

392,90 

- 307,5 

- 1106,1 

0,633 

- 2,?06 

000,06 

- 791,6 

- 1070,3 

0,352 

- 2,305 

016,02 

- 1170,1 

- 997,0 

- 0,101 

- 2,380 

027,57 

- 1060,7 

- 903.7 

- 0 , 626 

- 2,308 

039,13 

- 1603,3 

- 700,6 

- 1,002 

- 2,132 

050,60 

- 1702,0 

- b 1 0 , 6 

- 1,091 

- 1,860 

062,20 

- 1605,6 

- 396,6 

- 1,837 

- 1,502 

073,79 

- 1091,6 

- 120,8 

- 2,106 

- 1,076 

065,35 

- 1265,1 

193,7 

- 2,206 

- 0,601 

096,91 

- 99 b , 3 

502,8 

- 2,371 

- 0,098 

5 o n uh 

- 710.1 

P 9 H. 3 

- 2. 355 

0.010 


A mBETAX 

MBETAY 

ROLL 

A PITCH 

A SPMR 

1069,2 

- 1921,8 

2,652 

- 1,150 

- 80 , 7 

917,5 

"1 700/4 

2,319 

- 1,648 

- 50,7 

- 376,6 

- 1072,2 

1,416 

- 2,416 

- 50,7 

- 1019,9 

- 13 « 5, 2 

0,685 

- 2,655 

- 50 , 7 

- 1506,6 

- 1240,2 

0,330 

- 2,702 

- 50,7 

- 2034,2 

- 1104,0 

- 0,225 

- 2,790 

- 50,7 

- 2330,9 

- 1037,0 

- 0,761 

- 2,679 

- 50,7 

- 2461,2 

- 894,0 

- 1,255 

- 2,454 

- 50,7 

- 2027,0 

- 697,5 

- 1,692 

- 2,126 

- 50,7 

- 2208,8 

- 432,2 

- 2,054 

- 1,711 

- 50,7 

- 1950,9 

- 96,5 

- 2,326 

- 1,227 

* 50, 7 

- 1598,5 

299,7 

- 2,506 

* 0,697 

- 50,7 

- 1209,6 

734,6 

- 2,581 

- 0,145 

- 50,7 

- 828,8 

1176,1 

- 2,549 

0,403 

- 50,7 

- 082,6 

1585,4 

- 2,«11 

0,923 

- 50,7 

- 105,5 

1922,1 

- 2,173 

1,394 

- 50,7 

60,0 

2149,6 

- 1,645 

1,795 

- 50,7 

261,0 

2242,0 

- 1,439 

2,111 

- 50,7 

030.7 

2186,0 

- 0,973 

2,331 

- 50,7 

585,0 

1905,0 

- 0,466 

2,449 

- 50,7 

700,2 

1656,5 

0,059 

2,460 

- 50,7 

905,2 

1238,5 

0,579 

2 0 368 

- 50,7 

1083,0 

765,1 

1,070 

2,177 

- 50,7 

1266,1 

280,3 

1,511 

1 ,097 

- 50,7 

1437,8 

- 176,9 

1,880 

1,540 

- 50,7 

1574,4 

- 575*0 

2,162 

1,121 

- 50,7 

1649,3 

- 892,7 

2,344 

0,656 

- 50,7 

1638,3 

- 1120,2 

2,419 

0,168 

- 50,7 

1524,7 

- 1250,7 

2,384 

- 0,328 

- 50 , 7 

1303,0 

- 1318,8 

2,243 

- 0,809 

- 50,7 

980,2 

* 1318,2 

2,004 

- 1,255 

- 50,7 

576,0 

- 1277,4 

1,678 

- 1,648 

- 50,7 

121,6 

- 1215,5 

1,282 

- 1,970 

- 50,7 

- 307,5 

- 1146,1 

0,833 

- 2,206 

- 50,7 

- 791,6 

- 1074,3 

0,352 

- 2,345 

- 50,7 

- 1170,1 

- 997,0 

- 0 , 14 } 

- 2,380 

- 50,7 

- 1464,7 

- 903,7 

- 0,626 

- 2,300 

- 50.7 

- 1603,3 

- 700,6 

- 1,082 

- 2,132 

- 50,7 

- 1702,0 

- 614,6 

- 1,491 

- 1 ,860 

- 50,7 

- 1645,8 

- 396,6 

- 1,837 

- 1,502 

- 50,7 

- 1491,6 

- 124,8 

* 2,106 

- 1,076 

- 50,7 

- 1265,1 

193,7 

- 2,266 

- 0.601 

- 50,7 

- 996,1 

542,0 

- 2,371 

- 0,098 

- 50,7 

- 710.1 

- 898. 3 

*? - 355 

O.tttQ 

- 50 . 7 , 


SPMP 

BET A J 

0 ETA 2 

HETAi HUELH HDELT 2 

12,1 

1,912 

1,400 

0,592 

- 28,56 

- 51,90 

12,1 

1,859 

1.263 

0,758 

- 37,68 

- 46,45 

12.1 

1,754 

0,948 

1,158 

- 51,17 

- 29,22 

12,1 

1,717 

0,795 

1,356 

- 54,65 

- 18,41 

12,1 

1.691 

0,663 

1,536 

- 55,88 

“ 6.77 

12,1 

1,669 

0,564 

1,683 

- 54,90 

5,18 

12,1 

1,642 

0,507 

1,789 

- 51,83 

16,91 

12.1 

1,601 

0,498 

1.051 

- 46,84 

27,85 

12.1 

1 ,538 

0,538 

1,873 

- 40,15 

37,47 

12*1 

1,449 

0,624 

1,861 

- 32,03 

45,34 

12.1 

1.335 

0.751 

1,828 

- 22,77 

51,09 

12*1 

1 ,203 

0,906 

1,785 

- 12,69 

54,40 

12*1 

1,061 

1,079 

1,744 

- 2,13 

55,30 

12,1 

0,921 

1,254 

1,709 

8,53 

53,81 

12,1 

0,795 

1,418 

1,683 

18,88 

49,09 

12,1 

0,693 

1,559 

1,661 

28,50 

43,68 

12,1 

0,027 

1,668 

1,635 

30,98 

36,11 

12,1 

0,600 

1,741 

1,597 

43,93 

26,99 

12,1 

0,618 

1,778 

1,541 

49,01 

16,95 

12,1 

0,677 

1,784 

1,462 

51,97 

6,44 

12. 1 

0,774 

1,768 

1,361 

52,64 

- 4,11 

12, 1 

0,900 

1,739 

1,241 

50,94 

- 14,28 

12,1 

1,044 

1,707 

1,111 

46,94 

- 23.72 

12,1 

1,196 

1,678 

0,982 

40,80 

- 32,07 

12,1 

1,343 

1,654 

0,863 

32,80 

- 39,06 

12.1 

1,473 

1,632 

0,766 

23,55 

- 44,43 

12,1 

1,579 

1,607 

0,700 

12,91 

- 47,99 

12,1 

1,654 

1,571 

0,670 

2,00 

- 49,60 

12,1 

1,698 

1,558 

0,679 

- 6,87 

- 49,17 

12,1 

1,714 

1,444 

0,727 

- 19,17 

- 46 ', 71 

12.1 

1.708 

1,349 

0,810 

- 28,47 

- 42,27 

12.1 

1,688 

1.238 

0,921 

- 36,37 

- 36,00 

12,1 

1,663 

1 ,U 7 

1,050 

- 42,56 

- 20,12 

12 , i 

1,637 

0,996 

1.187 

- 48,84 

• 18,92 

12,1 

1*614 

0.885 

1,320 

- 49,06 

- 8,79 

12,1 

1,592 

0,794 

1,440 

- 49,24 

1,84 

12,1 

1 *566 

0,732 

1,538 

- 47,36 

12,47 

12,1 

1,529 

0,705 

1.609 

- 43,55 

22,60 

12,1 

1 j 47 7 

0,716 

1,652 

- 30,00 

31,75 

12.1 

1 ,404 

0,763 

1,668 

- 30,93 

39,48 

12,1 

1.312 

0 ,fi «2 

1 ,663 

- 22,02 

45,42 

12,1 

1,204 

0,948 

1,644 

- 13,36 

49,29 

12.1 

1,086 

5,071 

1,619 

- 3,49 

50,93 

12-1 £L. 969 

1 .201 

1-594 

6.63 

50 . 28 . 


(j) Output. 
Figure 1 .- Continued 




<*000^0 40 0 0 , Q 5^000 5^000 400q|q 4000^0 5^000 5|000 -Sol? 12^1 1^153 o|931 ljfeB/ -14,30 53,55 


******* * * 


***ENO Of IDENTIFICATION RON NUMBER 1 , TOTAt COMPUTATION tIME 44,10 SEC, *** 
^RETURN 


-n! 

O 


(k) Output. 
Figure 1.- Continued. 


SWASHPLATE PITCH ANGLE, deg 
ROTATING COORDINATES 


SWASHPLATE ROLL ANGLE, deg 
ROTATING COORDINATES 


T 


PITCH HOB MOMENT, ft-lb 
ROTATING COORDINATES 


ROLL HUB MOMENT, ft-lb 
ROTATING COORDINATES 


I 

-pfc 



T~ 

Z 

3 

4- 

5 

_£ 

7 

5 

9 

W~ 

ll 

I z 

13 

14 

l(a 

17 

/g 

/<? 

J?0 

j?L 

72 

-?3 

54 

~^r'- 

76 

21 

28 ' 
5o 


LOGON FSTGK,MAI NPR/D240I FS T 19 
DDEF FT10F001,VS,IDENT,R0026 
DDEF FT20FQQ l t V5,$FCT01.RUN6 


T4947 <GERO FANNING STOP 17 PH 5455« 


CALL MAIN2SS 





— — 


“10 0 

0 0 0 0 







+ .40 

+00+ ,268 

+ 03 + , 2684 

+03+ , 165 

+02+, 117 

+01+.97 

+ 00 


+ ,15 

+0 l + , 1 926 

+03+, 188 

+01+.4566 

+ 01 + , 00 

+00+.12021+06+.145 

+ 01 

-.943 

+01+. 225 

+01+.0 

+00+.70 

+02+.2246 

-02 



fpO 

+00+ , 0 

+ 0 0*_,2428 

+ 01 + J 11296+01 + , 10 

-01 



+,ma 

+01-.4666 

+ 01 + , 14 

+01*. 12535+02+, 592 . 

+00+, 1481 

+02+ ,857 

+ 01 

+ »3 

+ 00+ , 15 

+00+ , 60 

+ 02+ , 00 

+00*,10200+05+«87 

+ 00 


+ .00 

+00+, 70 

+01+.80 

+02 





+,2652 

+01", 2856 

+02-, 115 

+ 01*, 519 

+02-.507 

+ 02+ ,121 

+ 02 


+.1768 

+ 01 

-,252 

+ 01 





+ l 5778 

+01+. 00 

+00+, 00 

+ 0 0 + s 2 

+ 01 




+ ,io 

+02+ , 10 

+02+.10 

-0i+, 10 

"0!+,i 

-Oi+,1 

.* 0 i + , 1 

-01 


HELICOPTER 

64 


ROT OR IDENTIFICATION 
« 2 210000 


21 

Q*+, 

01 tlOQOOQOOO OQl 10000 1 

+00+.857 

- 02-, 10 


FROM REAL 
0000000 
2 


DATA (TEST 366 RUN 19 RECORD 6) TSS 


,005 


+ ,£68 

+ ,37 

+ A 1 


+03+.97 
+00", 699 
-0 1 +, 355 


31 

3Z 

33 


34 

35 

36 


+ , 3 + 00+ , 1 5 

+,26532*03+, 95 
4,644 +00" ,421 

+7T *02 + -, J4T9 

+.29 +0Q+.147 

+ ,27066+03+ , 969 
+ ,896 
+ .3 
+ ,31 
BIT 7 


+00+, 80 
+00* ,943 
+00+.797 
"01-,321 


37 

38 
31 


+01+, 12021+06+, 4566 
-04+.1 -04+.188 

+ 02 + .7 + 0 i + , 4 

+01 ‘ 

+01+,63900+05+,4 

____ „ "_01 ,, t 2 +00+ , 1 87 

+ 0 0 + ,24 '"'+02+,2~ "+Fl + ,32 
+00**896 +01 

___ +00 + , 9l7 + 01 + , 16829+Q6+, 5023 

+ 00 + ,1 +00 + .2 +00+, 41 -OT+,25 

+01+.3621 +00+, 136 +03+, 14 +02+.48 

+ 00 + .1S3 +00", 9 90 +01 

VLOSS, ClECp BETA,LQCK,SWEP, C2, LAM /LAHX/LAMVi BRDQ, PCON, 
CQ-, MU>CDMP,FDMP, BIX,G$PD| GYIP, GylD,7WST 
+,1599 +QO+, 1752 +QQ+, 400 00*03+. 3959 -Q3+.1599 +00+.1722 +00 
FT-LBS FT-LBS DEGREE DEGREE 

+,8797 *02+, 4493 *02+,1599 +00+.1722 +00+.4 -03+.3959 -03 


+ 01+-.15 
+ 01 + ,225 
*00+ ,5296 

+0 1 +, 1 395 
tO.i + ,2140 
+00+.5190 

+01 +, 1605 
+0 1 + , 236 
+00+, 5402 


+ 01 
+ 01 
+ 02 

+ 01 
+ 01 
+ 02 

+ 01 
+ 01 
+ 02 


c 

c 

c 

c 

c 

c 

c 

c 

■c 


4o 

4f 

4z 

~W 

44 

45 


FT-JLB FT 
SLUG, FT2 ( NO 


• LB 


FT 

OEG 


DIM) DEG FTLB/fi'AD(NO DiMJDE^ ’ (NO DIM) (NO DIM) (NO OlMnNO' DIM) 
OEG (NO DIM) (NO DIM)F7Lil/R t SFTL8/R,SSLUG,FT2CNQ DIM) SLUG, FT2SLU6.FT2 


DSET20 - - - 

*RELVAft 

♦ , 14 +00 + ,21 -01+24 *01 + . 1 +QO+, 1 1 +00 + ,5 


+ 00 


(a) List of input data cards. 

Figure 2.- Parameter identification run. 


“44“ 

47 

4S 

+ ,69 
+ .5 
+ .4 

-oi+,«a 
+0Q+,22 
+ 00+ . 1 

«oi+,63 

+ 0 0 t 1 3 
-01 + .60 

-01+. 54 
*00+ , 36 
-01 

-01 + ,5 
+ 0 0 + , 5 

+00+ ,44 
+ 00 + , 1 

+ 00 
-01 

49 

★READWGH 






5b 

+,io 

+01+.1Q 

+01+.1 0 

+ 01 + , l 

+ 0 1 + , 1 

*03+, 1 

-06 


5 1 ' ********** 


5Z *G0 PLOT 

53 **QUTPUT 1 2 3 U 

54 ++RESAMF t 5 

55 **RESAM?> 2 6 

56 **RE$AMP 3 7 

57 **RES AMR 4 6 

52 **RE$COR 1 9 

53 **RESC0R £ 10 

66 »»R£SCOR 3 11 

61 **RESCOR 4 12 

62 *GO STORE 

63 D3ET10 0106 

^STORAGE 111111111111 

65 *GO PRINT 
Gi ********* 

“ST"' *RETURN 
Cg LOGOFF 


-j 

o? 


Cb) List of input data cards. 
Figure 2.- Continued. 


TWO DEGREE OF Ft? tit DOM HELICOPTER BLADE AND GYRO SIMULATION 


PROGRAM CONTROL LOGIC 

IF LOO-* l IHINGEs 0 IROT= 0 INEWs 0 I5IML= 0 IFLOwa 0 IKECs 0 

BLADE PARAMETERS 

tiIX= 0,40 BIY=2b8 t 00 812=568,40 KADIUS=16.5 CHORD=l,l7 BLADE LOSS=,97 
,50 RPM= 192,6 HINGE POS I T IQN= 1 , 88 LGCK = 4,56b OELTA3= 0,00 ft 8ETA=0 , 120210E 06 Pl= 1,«5 
ThIST= -9,43 PR£CONE= 2,250 CT= 0,0000 AIR VELOCITY* .70,00 AIR DENS IT f=, 002246 ALPHA= 0,000 AlPhAS= 0,000 
LITTLE A 1 S= 0,000 LITTLE 015= 0,000 BIG AlS=-2,428 8IG BlS= 1,130 CD=0,01C LAM = 0,000000 LAMX = 0, 000000 LAMY=0 ,000000 


BLADE INITIAL CONDITIONS 

BETAls 1,912 HETA1 RATE* -4,67 bETA2= 1,400 UETA2 RATEs -12,53 HETAi= 0.592 BET A3 RATE* 14,81 COLLECTIVES 8,6 



SREEPs 


GYRO PARAMETERS 

IPs 0,300 IDs 0,150 GYRO AnGLE= 60,0 GYRO DAMP L = 0,00 GYRO RPM=10200.0 MtCuANICAL ADVANTAGE C2=0.87Q 

FEATHERING RESTRAINT K2ETA= 0.00 FEATHERING DAMPING C2ETA= 7,00 SWASHPLA' DAMPING CSDAMps 80,00 PSIOFs 0,00 


INITIAL CONDITIONS ON GYRO 

DELTAls 2,652 DELTA l KAT£= -28.56 DEL T A2= -1,150 DELTA2 RATE* -51,90 Nul=-50,7U NU2= 12,10 


PHI s 1,768 R PHI s 0,00 THET= -2,520 RTHET= 0,00 RMBIASs 0,00 PMBIAS= 0,00 RA8IAS= 0,000 PA8IAS= 0,000 


INITIAL CONDITIONS FOR STARTING AND STOPPING THE INTEGRATION ROUTINE 
DELPSIs 5.76 REVSs 0,00 REVQs 0,00 R£VF= 2,00 TRUNC=0,0000 


SCALE FACTORS FOR PLOTTING PROGRAM 


SCALE C 1 ) 

SCALE C2 5 

SCALE C3) 

SCALE { 4 ) 

SCALE (5) 

SCALE lb) 

SCALE ( 7 ) 

1.000E 01 

l.OOOE 01 

1 , OOOE-02 

1 , OOOE-Q2 

l.OOOE -02 

1, OOOE-02 

1 aOOGE-O 

SCALE(8) 

SCALEC9) 

SCALE(IO) 

scale C 1 1 1 

SCALE ( 121 

SCALE C 1 3} 

SC ALE C 1 4 

0.000 

0,000 

0,000 

0,000 

0.000 

O.OUO 

0,000 




(c] Output. 





Figure 2 ,~ Continued. 


Vu 7^1‘ry: ^^- 7 --' 


PAHAMhTfcRS CALULATED FROM INPUT DATA 
OHtiiAs £0,169 t, Y 5 P E 0 = 52,96 mu= 0.35b LAMbUA=-, 006999 

QELTAT=0.5000E-O2 TIME5=0.0000 TlMEO=0,0000 TIMEF=0 ,b231E 00 

HELICOPTER ROTOR IDENTIFICATION FROM REAL DAT A (TEST 366 RUN 19 RECORD 6) 7S5 

DATA CARDS LISTING*** **HU N NUMBER 1- 6 
X AXIS INCREMENT KDT s 1155b 5KIP = £ 69 POINTS HER CHANNEL 

THE 9 FOLLOWING CHANNELS WERE READ I 1, 2, 3, 9, 5, 6,11,12,19, 


t/1 


(d) Output. 
Figure 2." Continued 



-I 

Ov 


I ** 


*X3 Q'i 



HELICOPTER ROTOR IDENTIFICATION FROM REAL DATA (TEST 366 RUN 19 RECORD 6) T5S 


21 PARAMETERS 4 OUTPUTS 

64 MEASURED VALUES PER OUTPUT ( 25b MEASUREMENTS), 2 WAS THE SKIPPING FACTOR USED 

TIME INTERVAL. BETWEEN MEASUREMENTS 0,0050 SEC, 2 STEPS OF INTEGRATION IN EACH INTERVAL 

ANGLE INCREMENT BETWEEN MEASUREMENTS 5,78 DEG 


INITIAL CONDITIONS 

4,629E-02 -4,985E-01 -2,0076-02 -9.058E-01 3,337E*02 -8,1446-02 2,4436-02 -2,1886-01 1,0336-02 2,5556-01 

SCALING FACTORS FOR DATA UNITS 


1DTU» 1.599E 

-01 FT-LBS 

/ 1.722E 

-01 FT*! 

LBS 

/ 4.000E- 

04 DEGREE 

/ 3 , 959E-04 

DEGREE / 1,5996-01 


/ 

1,7226-01 



8 ,7976-03 FT 

-LB / 4 

.493E-03 

FT 

-Lb / 

1 ■ 

599E-01 

/ 

1. 

722E-01 

/ 4 , OOOE-04 

/ 

3.959E 

-04 

/ 


PARAMETERS NAMES 















n biy 

2) LOSS 

3) CLEC 

4) BETA 

5) LOCK 

6) SwEP 

7) C2 

8) LAM 9) LAMX 

10) 

LAMY 

11) BHDO 

12) PCON 

13) CD 

14) MU 

15) CDKP 

lb) FDHP 

17) BIX 

18) GSPD 

19) GY IP 

20) GYID 21) TWST 






INITIAL VALUES OF THE PARAMETERS 













2.6B0E 02 

9,7002-01 

5.570E 

00 

1.202E 

05 

4,5666 00 

1 ,500E 

00 

8,7006-01 - 

6, 990E-03 -1 ,0006-05 

1 .000E-06 

1,880b 00 

2.250E 

00 

1 .OOOE-02 

3,5506-01 

8.000E 

01 

7.000E 

00 

U,OOOE-Ol 

5.296E 

01 

3 , OOOE-O 1 

1.500E-01 -9 , aiOE 00 






LOWER BOUNDS 
















2.653E 02 

9.500E-01 

7.970E 

00 

6.390E 

04 

4 ,0006 00 

1.395E 

00 

8,4406-01 - 

4,2 1 OE-02 -3.210E-02 

-2,OOOE-Ol 

1.870E 00 

2,1406 

00 

l , 000E-03 

3.479E-01 

2.400E 

01 

2.000E 

00 

3.200E-01 

5,1906 

01 

2,9006-01 

1,4706-01 -8,9b06 00 






UPPER BOUNDS 
















2.707E 02 

9, B90E-0 1 

9.170E 

00 

U6B3E 

06 

6,0236 00 

1 , bO 56 

00 

8,9bOE-01 

1 ,0006-01 2,0006-01 

4, 1Q0E-O2 

2,5006 00 

2,3606 

00 

3.000E OO 

3.621E-01 

1.3606 

02 

l.OOOE 

01 

4,8006-01 

5,4026 

01 

i. 1006-01 

1,5306-01 -9.900E 00 







THE IDENTIFICATION PROCEDURE wlLL USE A MAXIMUM OF 2 ITF-RATIOnS AND A SEPARATION THRESHOLD EOUAL TO 0.50E-02 


***THE FOLLOWING WEIGHTS ARE USED*** 

l.OOOE 00 l.OOOE 00 l.OOOE 00 1.0U0E 00 

ERRMIN s 1,0006-04 , DMlN = 0,000 

INITIAL PARAMETER INCREMENTS FOR GRADIENT EVALUATION 

1 , 40 OE-0 1 2, 100E-02 2,4006 01 1.000E-01 1,1006-01 5,OOOE-Ol 6,9006-02 4.800E-02 8.300E-02 5,a00E»02 5,0006-01 4. 4006-01 

5.000E-01 2.2O0E-O1 3.000E-01 3.600E-01 5,0006-01 1.000E-02 4,0006-01 1,0006-02 8,4006-02 

+ ,10 +01 + .10 +0 1 + , 1 0 +01 + , 1 +01 + .1 -03+.1 -_0b _ 


(e) Output. 
Figure 2.- Continued. 



★ ** #* *★**■* 


iteration 0. 

MODE 1 

RAS99, KNDs 

2 





REL, ERROR « l,31fc 00 

COST s 2',436E 07. 

1 U 25 

2 14 26 

3 15 27 

4 16 28 

5 17 29 

1 t n 

b 18 30 


7 19 31 

8 20 32 9 21 33 10 22 34 11 

25 35 12 24 36 

2,68QE 02 

9.700E-01 

8.570E Ov 

1.202E 05 

4.566E 00 

1.500E 

00 

6.700E-01 

-fa,990E-03 -1.000E-05 1.000E-05 1 

,68 Ob 00 2,250EJjO_ 

i , o oo t-oa 

3.550E-01 

8.0Q0E 01 

7 , 000E 00 

4.000E-01 

5,296b 

01 

3.QOOE-01 

1.500E-01 -9,430b 00 


INCREMENT IN 

PARAMETER 

ft 3 REDUCED 

TO 242,2215 X 






INCREMENT IN 

PARAMETER 

* 3 REDUCED 

TO 26,4437 % 






increment IN 

PARAMETER 

A 3 REDUCED 

TO 4,0659 X 








BASIC 

PARAMETER SEPARATION 

M 

BETA 9 t «9E-01 

COMP a j 13E'«0t 

LOSS S,9SE-01 

FDMP 4.17E-01 

CLEC. 5jA & e -° 3 


' critical 

PARAMETER SEPARATION 


elec 1 ,27E*02 
CLEC 1,26E"02 
ClEC l t 10E-02 
CLEC 9.95E-03 
CLEC 9 ( 06£»O3 



(g) Output. 
Figure 2.- Continued. 















***THERt ARE 21 PARAMETERS IN THIS PROBLEM , THE SEPARATION THRESHOLD *AS O.50E-02 

MAGIC NUMBER 022200000000002200002 


* INDEPENDENT PARAMETERS 

* loss,,clec#beta,cdmp,pdmp,twst, 

* 

* IRRELEVANT parameters 

* NONE, 

* 

* not estimated 

* NONE, 

* 

* NOT USED 

* BIY ,LOCK,SW£P f C2, LAM , LAM* , LAMy, BHDO , PCUN , CD, MU, BI X , GSPD , GY I P , GY 10, 


PET= 0,355861616B27987D"05 TIME = 0,535 SEC 

STATUS 1NU 2 3 4 5NU 6NU 7NU 8NU 9NU 10NU li‘-J 12NU 13NU I4NU 15 16 17NU IBNU 19NU 20NU 21 

SENS = 0.00 0.09 0,20 0,09 0,00 0,00 0,00 0,00 0,00 0,00 0,00 0,00 0,00 0,00 0,03 0,06 0,00 0,00 0,00 0,00 0,27 


ST ART 0, FIRST 21 (ThST), LAST 

3 

CCLEC) 

SEP s' 0 

,99E*02 



TIME » 64,50 SEC 




ITERATION 1. MODE 

WAS 0, KND= 

0 

— L3 a a 



C 


REL, ERROR s 1.11E 00 

L U £ 5 

COST' 

* 1 ,625£ 

07 

1 13 25 2 14 26 

2.680E 02 9.500E-01 

3 15 27 
9.170E 00 

4 

7, 

16 26 
SlOE 0« 

5 17 29 
4 , 566E 00 

1 £ “ 

6 18 30 
1,500b 

00 

V ft 

7 19 31 
B.700E-01 

8 20 32 " 9 21 33 10 22 ll 

-6.990E-03 -1.000E-05 1 , OOOE-;ib 1 

23 35 

,atJ 0 E oo 

12 24 36 
2.250E 

00 

1 , 000E-02 3.5S0E-01 

1.360E 02 

2, 

0 OOE' 0 0 

4 , 0 O0E»»0 1 

5.296E 

Oi 

3.000E-01 

l.SOOE-Ol *9 , 90 Ot 00 





(h) Output. 
Figure 2.- Continued. 



BASIC 

PARAMETER 

TWST 


SEPARATION 


BETA 

B.69E-01 

COMP 

b,73E-01 

LOSS 

5,1 7t"01 

FDMP 

i,roE-oi 

CLEC 

b,B9E-03 



CRITICAL 

PARAMETER 


SEPARATION 


CLEC 

1.02E-02 

CLEC 

1.02E-02 

CLEC 

9.61E-03 

CLEC 

7.08E-03 

CLEC 

6.89E-03 


(i) Output. 
Figure 2.- Continued. 






*** THERE ARE 21 PARAMETERS IN -THIS PROBLEM , THE SEPARATION THRESHOLD WAS 0,56E-02 

MAGIC NUMBER 022200000000002200002 


* INDEPENDENT PARAMETERS 

* LOSS, CLEC, BETA, CDHP,FDMP f TWSTf 

* 

* irrelevant parameters 

* NONE, 

* 

* NOT ESTIMATED 

* none, 

* 

* NOT USED 

* BIY , LOCK, SWEP , C2, LAM , L AMX, LAMY , BRDO , PCON, CD, MU, Bl X , GSPD , GY I P , G Y ID , 


DETs 0,1305777329032010-06 TIME a 0,531 SEC 

STATUS 1NU 2 3 4 5NU 6NU 7NU 8NU 9NU 10NU 11NU 12NU 

SENS a o.OO 0,16 0,16 0,10 0,00 0.00 0,00 0,00 0.00 0,00 0.00 0,00 
START 0, FIRST 21 UwsT), LAST 3 CCLEC) SEP * 0.69&-02 

ITERATION 2, MODE *A5 0, KND= 0 

— — p ARAMETER5 

1 13 25 2 14 26 3 15 27 4 Jb 2B 5 17 2 s ? 6 10 30 

2.60OE 02 9.500E-01 9.170E 00 b,390E 04 4.566E 00 1.500E 00 

1,0002-02 3.550E-01 1.36QE 02 2.000E 00 4.00QE-01 5,2*6E 01 


1 3NU 1«NU 15 16 17NU 18NU 19NU 20NU 21 

0,00 0,00 0,15 0,04 0,00 0,00 0,00 0,00 0,17 
TIME s 50,26 SEC 

REL, ERROR a 1.06E 00 COST a 1,713b 07 
VALUE S — — — mmmmmmmmm m 

7 19 31 8 20 32 9 21 33 10 22 34 11 23 35 12 24 ib 

0.7OOE-D1 -6.990E-03 -1.000E-05 1,0002-05 1,8602 00 2.250E 00 

3,0002-01 1.500E-01 -9,900b 00 


PARAMETER INCREMENTS (DA/A) FOR GRADIENT EVALUATION 


BIY s 

1.4E-01 

L0SS = 

2.3E-02 

CLECs 

1 , 8E-02 

BETAa 

1, lt-01 

LOCKS 

1. 

IE-01 

SwtP= 

5.0E-01 

C2s 

6.9E-02 

LAM s 

4.6E-02 

LAMXs 

8.3E-02 

lamy= 

5.4E-02 

BRDOs 

5. 

02-01 

PCONs 

4.4E-01 

CDs 

5.0E-01 

MU = 

2.2E-01 

CDMFs 

3,62-01 

FDMP = 

5.0E-01 

BIXs 

5, 

0E-01 

GSPOs 

1.0E-02 


GYIP= 4,02-01 GYIO= 1.0E-02 TWST= 2.3E-02 



O') Output. 
Figure 2 . - Continued. 


FINAL RESULTS Of THIS IDENTIFICATION 


FIT TEST ** COST * 0,17135 08 CORRELATION s-0, 12500 

RELATIVE ERROR'*' " 1,0607" 


£» 

to 


ESTIMATED VALUES OF THE PARAMETERS 


DEPENDENCY INDEX ‘ 



NAME 


EST. VALUE 

ERROR BOUNDS 

UNITS 

SENSITIVITY 

FINAL 

INITIAL 

I 

B1Y 

S 

2, &800E 02 

+ /* 

0,0 


SLUG , F T2 

0,00000 

0 

0 

3 

LOSS 

S 

“"9*. 50006-01 

+ /- ' 

1 1 Ifc- 

'01 

(NO DIM) 

3,21999 

2 

1 

3 

CLEC 

X 

9.1700E 00 

+ /- 

9 , i£ 

01 

DEG 

9,26669 

2 

1 

9 

BETA 

X 

6.3900E 09 

*/” 

3,9E 

oa 

FTLB/RAD 

0,33903 

2 

1 

5 

LOCK 

s 

9,5660E 00 

+ /" 

0,0 


(NO DIM) 

0,00000 

0 

0 

& 

SwEP 

X 

1.5000E 00 

+ /- 

0,0 


DEG 

0,00000 

0 

0 

7 

C2 

X 

8,7000E-01 

+ /- 

0,0 


(NO DIM) 

0,00000 

0 

0 

8 

LAM 

X 

■6, 99006-03 

+ /• 

0,0 


(NO DIM) 

0,00000 

0 

0 

9 

LAMX 

X 

-1.0000E-05 

*/- 

0,0 


(NO DIM) 

0,00000 

0 

0 

10 

LAMV 

X 

1 , 00006-05 

+ /“ 

0,0 


(NO DIM) 

0,00000 

0 

0 

11 

BRD0 

X 

1,88006 00 

+ / - 

0,0 


FT 

0,00000 

0 

0 

12 

PCON 

s 

2.2500E 00 

*/- 

0,0 


DEG 

0,00000 

0 

0 

13 

CD 

X 

1.0000E-02 

+ /- 

0,0 


(NO DIM) 

0,00000 

0 

0 

19 

MU 

X 

3 , 550 OE-0 1 

+ /- 

0,0 


(NO DIM) 

0,00000 

0 

0 

15 

CDMP 

a 

1.360QE 02 

+ /- 

5.76 

02 

FTLB/R.S 

0,19951 

2 

1 

IS 

FDMP 

a 

2.0000E OO 

+ /- 

3. IE 

01 

FTLB/R.S 

0,05120 

2 

1 

17 

BIX 

a 

9.0000E-01 

+ /- 

0,0 


SLUG.FT2 

0,00000 

0 

0 

18 

G5PO 

s 

5,29606 01 

+ /- 

0,0 


(NO DIM) 

0,00000 

0 

0 

19 

GY IP 

a 

3,00006-01 

+ /- 

0,0 


SLUG.FT2 

0,00000 

0 

0 

20 

GyID 

a 

1 .5000E-01 

+ /- 

0.0 


SLUG.FT2 

0.00000 

0 

0 

21 

TWST 

= 

-9.9000E 00 

+ /" 

5, BE 

01 

DEG 

3,29363 

2 

1 


*GU PLOT 


**OUTPuT 



(k) Output. 
Figure 2 ,~ Continued. 


HISSES*" 




t #i }* i IHrj T 6 i» 




MEASURED AMO COMPUTED TIME HISTORIES 


SYMBOLS /VARIABLE 1 


0 MEASURED i 

A COMPUTED, 

/VARIABLE 2 

+ MEASURED, , COMPUTED/ 


TIME 




i 

* 0 

f 

+ I 


0,000 




I * 

0 


+ I 


11,55b 




I * 

0 


+ I 


23,112 



4r 

I 0 


■ 

+ I 


34,668 


* 

0 

I 



+ I 

. 

46,224 

* 

0 


I 


. + 

I 


57,780 

it 

0 


I 


. * 

I 


64,336 

* 

0 


I 


,+ 

I 


80,842 

* 0 



I 


+ . 

I 


42,448 

* 0 



I 


+ . 

I 


104,004 

* 0 



I 


+ . 

I 


115,560 

* o 



I 


+ 

. I 


127,116 

* 0 



I 


+ 

, I 


138,672 

* 0 



I 


* 

I. 


150,228 

* 

0 


I. 


+ 

I 


161,784 

* 

0 


I 



+ I . 


173,340 

* 

0 


I 



+ 1 


184,896 


*0 


I 



+ . 


196,452 


* 


I 



I + t 


208,008 


0 

*f 

r 



I + 


214,564 


0 


i* 



I + 


231,120 


0 


i * 



I * 


242,676 


0 


i * 



1 + D 


254,232 


0 


i 

* 


I + 


265,788 



0 

i 

* 


I + . 


277,344 




1 0 

★ 


I +. 


288,900 




I 0 

* 


I , 


300,456 




I 0 

* 


. 1 + 


312.012 




I o 

* 


. 1 + 


323, 56B 




I 0 

it 

1 

I + 


335,124 




I 

0 * 

f 

+ 


346,680 




I 

* 0 


+ I 


358,236 




I * 

0 

• 

♦ I 


369,792 




I * 

0 

* 

+ I 


381,348 



* 

I 

0 


t 1 


392,904 


* 


I 0 



+ I 


404,460 

* 

0 


1 


, + 

I 


416,016 

★ 

0 


I 


1 + 

I 


427,572 

* 

0 


I 


. + 

I 


439,128 

Dr 0 



I 


+ . 

I 


450,684 

* ' 0 



I 


+ 

. I 


462,240 

* 0 



1 


+ 

. 1 


473,796 

* 0 



I 


♦ 

I 


485,352 

* 0 



J 



1 


496,908 


{1) Output. 
Figure 2.- Continued. 
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CO 
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»o 


0 * 


l 

I 

I 

I 

I* 

I 

I 

1 

1 

1 

1 

X 

I 

I 

1 < 

I 

I 

I 

I 

I 


+ o 


VARIABLE 1 MEASs 7 . V l ofc 03, 



* 


A 


A 

* 

A 


A 


A 

A 


0 

0 

COMHs q 


i 


08faE 03 


+ 




* 


i 


I 

I 

+ I 
I + 
I * 
I 
I 
I 
I 

I . 

. I 
I 


+ 

1 + 

I 

I + 


+ 


♦ 



+ I 
+ I 

VARIABLE 2 m£ AS- 7 , 1 41 E 03, COMPs 9,25St 03 


boa,ab« 
520 ■ 020 
531.57b 
By 3, 132 
554 , 6-00 
566,244 
577.000 
589,356 
600,912 
612,4bB 
624,024 
b35 , 5BQ 
647.136 
658,692 
670, £40 
661.004 
693,360 
704.91b 
716.472 
72B.02B 


(m) Output. 
Figure 2.- Continued. 


MEASURED AMO COMPUTED TIME HISTORIES 


SYMBOLS /VARIABLE 

3 0 MEASURED, * 

COMPUTED, 

/VARIABLE 

4 + MEASURED, , 

COMPUTED/ 

TIME 


I 

0 * 

+ 

. I 


0,000 


I 

0 * 

+ . 

I 


11,556 


I 

Hr 

♦ . 

I 


23, HE 


I 0* 


+ , 

I 


34,668 


10 * 


, + 

I 


46,224 


0 I* 



I 


57,760 


* I 


+ . 

I 


b9,33b 

*0 

I 


+ , 

i 


80,892 

* 

I 


+ . 

I 


92,448 

*0 

I 


+ . 

I 


104,004 

*0 

I 


+ • 

1 


115,560 

A 

I 



+ . l 


127,116 

0* 

I 



* * I 


138,672 

0 * 

I 



+ I. 


150,228 

0 * 

I 



I + 


161,784 

0 * 

I 



I * 

* 

173,340 

0 * 

I 



I 

+ . 

184,896 

0 * 

I 



I 

+ . 

196,462 

0 * 

I 



I 

+ . 

208,008 

. 0 

* I 



I 

* + 

219, 5b4 

0 

* 



I 

* + 

231,120 


01 * 



I 

. + 

242,676 


I 0 * 



I 

. + 

264,232 


I 0 

* 


I 

. + 

265,788 


I 0 

* 


I 

. t 

277,344 


I 

o * 


I 

. * 

2B8.900 


I 

0 * 


I , 


300,456 


I 

* 


1 

t 

312,012 


I 

■*o 


. I * 


323,568 


I 

* 0 


, + 


335,124 


I 

* ■ 0 

c 

+ I 


346,680 


I 

* 0 

» 

+ I 


356,236 


I * 

0 

t + 

I 


369,792 


I * 

0 

. + 

I 


581, 34B 


I* 0 


, + 

I 


392,904 


* I 0 



I 


404,460 

* 

0 


+ , 

I 


416,016 

* 

0 I 


+ . 

I 


427,572 

* 0 

I 


+ • 

I 


439,128 

* 0 

I 


+ ■ 

I 


u50,684 

* 0 

I 


+ 

* I 


4b2,2ao 

* 0 

I 


+ 

. 1 


473,796 

HO 

I 


+ 



485,362 

0* 

I 





496,908 


(n) Output. 
Figure 2,- Continued 


<r 

o 

0 


* 




o 

o 


* 


0 


maxima : 


i 

I 

1 

* I 

* 1 
* I 

0 I * 

0 I * 

0 1 * 

10 

I 0 

I 0 

1 
1 
I 
I 
I 
1 

I * 

I * 

VAHIA8LE 3 M£ A5= 8.000E 03, 


* 

* 

* 

0 * 

0 * 

0 * 

* 

* 0 
* 0 
0 

0 . 

CUMP= 7.B28E 03 




t 


VARIABLE « 


l 



• 

I 

I + 

I* 

l 

I 

I 

MLAS= 7, 


+ 


* 


4B9E 03, 



CUMP = 7 , 603fc 


"TffB, <fb4 
520.020 
531,57 6 
543, 132 
554, '>88 
566*244 
577,800 
5B9,35& 
600,912 
612,468 
62-4,024 
635,580 
647,13b 
658,692 
670,24b 
681,804 
693,360 
704,916 
716*472 
728,028 


**fiES AMP 


CD 

Ox 



Co] Output. 
Figure 2.- Continued 


measured Tnd 'Computed time histories 


SYMBOLS . /VARIABLE 1 0 MEASURED, * COMPUTED, /VARIABLE 5 + MEASURED, » COMPUTED/ T IM E 



0,000 

tl P 55b 

23,112 

34,668 

S? t 780 

69,336 

00,892 

92,448 

loa.oou 

115,560 
127,116 
138,672 
150,228 
161,704 
173,340 
184,896 
196,452 
208,008 
219,564 
231,120 
242,676 
2b«,232 
265,788 
277,344 
268,900 
300,456 
312,012 
323, 5b0 
335,124 
346,680 
358,236 
369,792 
381,348 
392.904 
404,460 
416,016 
427,572 
439,128 
450, 6B4 
462.240 
473,796 
485,352 
496,908 


(p) Output. 
Figure 2,~ Continued 



*0 


*0 


MAXIMA 1 


0* 


I 

I 

I 

I* 

I 

I 

I 

I 

I 

I 

I 

I 

1 

1 0 
I 
I 
I 

I - 

I 


* 0 


VARIABLE 1 MEAS= 7.910E 03, 


* 


* 


* 

* 

t 

* 

* 

* 

0 

0 

COMM- 9,0868 03 


• + 

.+ 

t 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

t 

¥ 

■V 

+ 

+ 

+ 

I + 

. * 

+ 

VARIABLE 5 M£A5 = 


506,464 

520.020 

531,57b 

543,132 

554,688 

, 566,244 

, 577,800 

, 589,356 

, 600,912 

, 612.468 

, 624,024 

, 635,580 

, 647,136 

, 668,692 

, 670,248 

, 681, B04 

, 693,360 

704,916 

716,472 

728,028 

1.000E-50, CCMPs 1 , 1258 04 


**PESAMP 


m 

oo 


(q) Output. 
Figure 2.- Continued 



MEASURED AND COMPUTED TIME HISTORIES 


SYMBOLS /VARIABLE 2 0 MEASURED, * COMPUTED, /VARIABLE 6 + MEASURED, . COMPUTED/ 


T I ME 


CQ 

U3 


* 

* 

* 

it 

* 

* 0 
* 0 
*0 
0* 

0 * 

0 * 

0 

0 

0 

0 



0 I 

0 I 

0 I 

0 I 

0 I 

I 
I 
I 
I 
I 
I 

* I 

* 1 

I* 

I * 

0 1 

01 
0 

10 

I 0 

I 

I 

I 

I 

I 0 

I 0* 

I * 

* 10 

* 10 

I o 

0 

0 1 
01 
0 I 
0 I 
0 I 
I 
I 
1 
I 

* I 

* I 
I * 

1 * 



0 

0 

0 

0 * 



0,000 
11,556 
23.U2 
54,666 
46,224 
57,780 
69,336 
HQ, 092 
92,446 
104,004 
115,560 
127,116 
138,672 
150,226 
161 j 764 
173,340 
164,896 
196745? 
206,008 
219,564 
231,120 
242,676 
254,232 
'“ 2557758 ' 
277,344 
288,900 
300,456 
312,012 
323,568 
' 1557124 
346,680 
358,236 
369,792 
381,348 
392,904 
454745 ? 
416,016 
427,572 
439,128 
450,684 
462,240 
' 4TT.T96 ' 
485,352 
496,908 


(r) Output. 
Figure 2.- Continued, 


V 


o 


* 


* 

* 


a 


* 


* 

MAXIMA 


I 


* 


1 

I 

I 

0 I 
1 0 
I 0 

I 

I 

I 

I 

I * 

* I 

I 

0 

10 

I 

I 0 
0 

0 1 
0 I 


VARIABLE 2 MEASs 


* 


A 



0 


7.141E 03, COMP= 


A 

A 

A 

A 

A 


9.255E 


* 


0 3 


t 


VARIABLE b 


+ 

+ 

+ 

+ 

+ 

A 

+ 

+ 

* 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

A 

A 

A 

A 


EOS a 464 
520 , 020 
‘ 531.576 

5137132 " 
554,666 
566,244 

" *5777300 
569,356 
600,912 
612. 4*6*6 
624,024 

635.560 

- *647.116 * 
656,692 
b70 ,248 
681,804 

693.560 
704,916 
716,472- 
726,028 


MEAS3 1.000E-50, COMP= 1.172E 04 


aaR£5AMP 


to 

o 


( 5 ) Output, 
Figure 2.- Continued, 


MEASURED AND COMMUTED TIME HISTORIES 


ID 

i-** 


SYMBOLS /VARIABLE. 3 0 MEASURED, * CO MPU TED t /VARIABLE 7 


*0 

*0 

* 

0* 

0 * 

0 A 
0 * 

0 * 

0 

0 


A 

* 

* 0 
* 0 
*0 
0* 


*0 

* 


* 


* 

0 


0 


* 

0 


■* 

0 


I 

I 

I 

I 

10 
0 I* 

* I 
I 
I 
1 
1 
I 
I 
1 
I 
I 
I 
I 
I 

* I 
* 

01 

I 0 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

1* 

* I 

0 

0 1 
1 
I 
I 
I 
I 
I 


miiiiKimii 

0 * 
0 * 

* 

0* 

* 




* 


+ MEASURED, , COMPUTED/ 



T _I M E_ 

0,000 
1 1 ,55b 
£3,112 
34,66 8 
46,224 

E7.TS0" 
69,336 
80,692 
92,448 
104,004 
115,560 
127,116 
13B.672 
150,226 
161,784 
173,340 
184,896 
196,452 
208,008 
219,564 
231,120 
242,676 
254,232 
2b5 , 786 
277,344 
288,900 
300,456 
312.012 
323,568 
335,124 
346,680 
358.236 
369.792 
381.348 
392,904 
404,460 
416,016 
427,572 
439,128 
450,684 
462,240 
473,796 
4b5, 352 
496,908 


(t) Output. 
Figure 2.- Continued. 


i 



u 

0 

0 


* 


0 


* 


A 





MAXIMA J 



I 





I 





I 




: k 

I 




* 

I 





* I 




0 

I * 




0 

I 

* 




0 I 


* 



10 



A 


I 

0 


A 


I 


0 

* 


I 



0 * 


I 



0 A 


I 



0 A 


I 



* 


I 



* 0 


I 



A 0 


I 


* 

0 


I 

★ 


0 

VARIABLE 

3 MEASs 

B t 0 OQfc. 

03* 

COMPs 7.828E 03 


t ■ 

+ n 

+ * 
t 
+ 

+ 

+ 

♦ 

+ 

+ 

+ 

+ 

+ . 

+ 

+ 

. t 

. * 

+ 

+ 

VARIABLE 7 MEASs i.OOOE-SO 


508,464 

520,020 

531,576 

, 543,132 

, 554,600 

. 566,244 

, 577,000 

, 5B9.356 

, 600,912 

, 612,460 

, 624,024 

635,580 
647,136 
650,692 
670,240 
681,604 
693,360 
704,916 
716,472 
728.028 

COMRs 5.080E 03 


aaRESAMP 



(u) Output. 
Figure 2.- Continued 


MEASURED AND COMPUTED TIME HISTORIES 


SYMBOLS /VARIABLE 

a 

O MEASURED, a COMPUTED, 

/VARIABLE H 

+ MEASURED, , COMPUTED/ 


TIME 

0 * 


i 


; : 


0,000 

0 .* 


i 


+ . 


11,55b 

0* 


i 


+ « 


23,112 

0* 


i 


+ . 


34,660 

AO 


i 


• * 


nb.azu 

*0 


i 


. + 


57,700 

0* 


i 


• 


fa 1 ?, 336 

0 A 


i 


+ , 


00,692 

0 * 


i 


+ . 


92,41)6 

Q* 


i 


+ » 


104,004 

0 * 


i 


+ . 


115,560 

0 a 


i 

. 

+ . 


127, Ufa 

0 

A 

i 


+ . 


138,672 


a 

i* 


+ . 


150,226 



10 A 


+ . 


161,764 



I 0 A 


+ . 


173,340 



I 0 * 


+ ■ 


. 184,096 



I 0 * 


+ . 


196,452 



I DA 




208,000 



I *0 


.+ 


219,564 



I A 0 * 


. + 


231,120 



I A 0 


1 ♦ 


242,676 



I A 0 


, + 


254,232 



I ' A 0 

• 

+ 


265,786 



I A0 

t 

+ 


277,344 



I A 0 

i 

+ 

“ 

208,900 



I A 0 

■ 

+ 


300,456 



A 0 

l 

+ 


312,012 


A 

I o 

e 

+ 


323,560 

* 


0 

c 

+ 


335,124 

■* 

0 

I 

< 

+ 


346,660 

* 0 


I 

• 

+ 


350,236 

* 0 


I 

« 

+ 


369,792 

* 0 


I 


, + 


301,346 

A 0 


J 


. + 


392,904 

* 


I 


t 


404,460 

0* 


I 


+ t 


416,016 

0 a 


I 


+ . 


427,572 

0 A 


1 


+ 


439,120 

0 * 


I 


+ 


450,604 

' 0 A 


1 


+ . 


462,240 

0 

* 

I 


+ • 


473,796 

0 


* 


+ . 


465,352 

0 


I A 


+ ■ 


496,908 


O) Output. 
Figure 2.- Continued 



* 


* 


* 

HAX1MA j 


u I 

* 


0 

* 


1 

0 * 


1 

0 * 


I 

r. 

* 

I 

0 

* 

I 


0 * 

I 


*0 

I 


* 0 

1 

4 

0 

X 
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0 

I 

* 

0 

I 

* 0 


* 

0 


* -I 

0 

* 

* I 

0 

t 

* 10 


• 

0 I 


■ 

0 I 

0 1 
VARIABLE 4 mea$= 

7.989E 03, C0MP= 

7.603E 


+ 

+ 

+ 

4 

4 

4 . 

+ • 

.+ 

, + 

. + 

4 

4 

4 

4 

4 

4 

4 

+ 

4 

4 

VARIABLE a BEASS l.OOOt- 


t 500,464 

, 520,020 

. 531,576 

, 543,132 

554.600 
566,244 

577.600 
509,356 
600,912 
612,460 
624,024 
635,500 
647,136 
650,692 
670,248 
601,004 
693,360 
704,916 
716,472 
726 t 02B 

, COHPs 5,114k 03 


**HESC0R 


to 

4*- 


(w) Output. 
Figure 2. - Continued 


measured and computed time histories 


SYMBOLS 

/variable 1 


0 MEASURED, 

ft COMPUTED, 

/VARIABLE 9 ft MEASURED, , COMPUTED/ 

T I h E 




I 

ft 0 

+ 

0,000 




I * 

0 

+ « 

11,556 




I ft 

0 

+ . 

23,112 



* 

I 0 


+ . 

3d, 660 


* 

0 

I 


+ . 

46,224 


* 0 


I 


+ 

£7 ,700 

* 

0 


I 


+ . 

69,336 

★ 

0 


I 


+ 1 

00,092 

* 

0 


I 


. + 

92,440 

* 

0 


I 


* + 

104,004 

* 

0 


I 


. + 

115,560 

* 

D 


I 


. + 

127,116 

* 

0 


I 


. * 

136,672 

•k 

0 


I 


. + 

150,226 

* 

0 


I 


. + 

161.764 


ft 0 


I 


. + 

173,340 


* 0 


I 


. + 

184, 096 


*0 


I 


. + 

196,452 


ft 


I 


* + 

208,008 


0 

ft 

I 


c + 

219,564 


0 


I* 


. + 

231,120 


0 


I ft 


. + 

242,676 


0 


I ft 


. ft 

254,232 


0 


I 

* 

,+ 

265, 7B8 



0 

I 

* 

+ » 

277,344 




I o 

* 

+ . 

288,900 




I 0 

* 

+ « 

300,456 




I o 

* 

+ . 

312,012 




I 0 

A 

+ . 

323,568 

* 



I 0 

A 

ft , 

335.124 




I 

0 * 

+ . 

346 , 680 




I 

ft 0 

ft . 

358,236 




I ft 

0 • 

ft » 

369,792 




I ft 

0 

+ . 

301,346 



* 

I 

0 

+ , 

392,904 


k 


I 0 


+ * 

404,460 


ft 0 


I 


’ + . 

416,016 

* 

0 


I 


» 

427,572 

*■ 

0 


I 


. + 

439,128 

* 

0 


I 


. + 

450,684 

* 

0 


I 


, * 

462,240 

★ 

0 


I 


. ft 

473,796. 

* 

0 


I 


• + 

485,352 

* 

0 


I 


. + 

496,900 


Cx) Output. 
Figure 2. - Continued. 




+ 

+ 

* 

+ 

+ 

+ 

+ 

+ 

+ 

+ 



+ 

+ 

+ 

+ V 

+ • 

+ 

+ 

+ I 

MEAS* 1.000E-50, COMP 


SOS. 464 
520,020 
531,576 
Sit'S, 132 ' 
554, 668 
56i 6 . 244 

57?, 800 

569,356 

600.912 

"612,468 

624,024 

63 5,560 

— • 54 7 ,T3 6 

658 c 692 
670,248 

6 8 1 ,8 0 if 

693,360 

704,916 

' Ti 6 ,471 

728,028 

2, 493E 07 


MEASURED AND COMPUTED TIME HISTORIES 


SYMBOLS /VARIABLE. £ 0 MEASURED* * COMPUTED, /V ARI ABLE1Q + MEASURED , , COMPUTED/ 


TIME 


* 

* 

* 

A ( 
* ' 0 
*0 
0* 

0 * 

0 * 


0 

0 * 
0 


I 

I 

1 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I* 

I 

I 

01 

0 

10 

I 

I 

I 

I 

I 

I 

I 

I * 

► 10 
10 

I c 

0 

I 

01 

I 

I 

I 

I 

1 

I 

I 

I 

* I 
I 
I 


0* 


+ 

♦ 

■* 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

■* 

+ 

+ 

+ 

+ 

♦ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

V 

+ 

+ 

+ 

+ 

t 

* 

+ 


0,000 
11.556 
24.U2 
34,660 
46,224 
57,780 
b9, 336 
80,092 
92,446 
104,004 
115,560 
127,116 
130,672 
150,228 
161. 7b4 
173,340 
184,896 
196,452 
208,006 
2i9,bb4 

231.127 
242,676 
254,232 
265, 78B 
277,344 
2B8.900 
300.456 
312,012 
323,568 
335,124 
346,680 
358,236 
369,792 
361,348 
392,904 
404,460 
416,016 
427,572 

439.128 
450, 6B4 
462,240 
473,796 
465,352 
496,906 


[z) Output. 
Figure 2.- Continued 


0 


* 

A 


A 


A 


A 


A 

MAXIMA 1 


I 

•0 I 

0 I 

0 I 
I 0 
I 0 
I 
I 
I 
I 

I A 
A 1 
A I 

A 0 

10 
I 

I o 

0 

0 I 


0 I 

VARIABLE 2 MEASS 



7, HIE 03, COMP* 9, 255E 03 


« 


t 


VARIABU10 


A 

+ 

A 

A 

+ 

A 


A 

A 


+ . 

A 

A 

A 

A 

+ 

A 

A 

A 

A 

A 




+ • 

MEAS= l f ODOE-50, CUHPs 3.110E 


500,464 
520.020 
531,576 
543, 132 
554.6BB 
566,244 
577, BOO 
5B9.356 
600,912 
612,468 
624,024 
635,500 
647,1 36 
65B.692 
670,240 
601,804 
693,360 
704,916 
7 16,472 
725,026 


aaRESCOR 


io 

03 


taa) Output. 
Figure 2«- Continued, 


MEASURED A*U COMPUTED TIME hISTUKIES 


SYMbPU 

/V AK;I ABLE 

3 0 MEASURED, * 

COMPUTED, 

/VARIABLE 1 1 

* MEASURED, , COMPUTED/ 

TIME 




I 

0 * 


+ . 

0,000 




I 

0 * 


+ * 

11,55b 




I 

1*“ 


+ • 

23,112 




I 0* 



+ 

34,668 




10 * 



+ • 

46,224 




0 1* 



+ « 

57,780 




* 1 



+ D 

69,356 



*0 

1 



+ • 

BO , B92 


A 


I 



» 

92,4*18 


*0 


1 



, * 

104 004 

*0 



I 



. * 

115,560 

„ * 



I 


* 

+■ 

127,116 




1 


P 

+ 

138,672 

<1 * 



1 


■ 

+ 

150,228 

0 * 



I 


P 

+ 

161,784 

0 * 



I 


f 

+ 

173,340 

0 

A 


I 


• 

+ 

184, B96 

0 

* 


I 


f 

+ 

196,452 


0 

* 

1 


■ 

+ 

208,008 


0 


* 1 


1 

+ 

219,564 



0 

* 


■ 


231,120 




01 * 



■ + 

242,676 




I 0 * 



• + 

254,232 




1 0 

* 


, + 

265,788 




1 0 

■k 


• 

277,34« 




1 

o * 


+ t 

288,900 




1 

0 * 


+ , 

300,456 




I 

* 


+ . 

312,012 




1 

*0 


+ 

323,560 




I 

* 0 

- 

+ » 

335,124 




I 

* o 


+ 

346,680 




r 

A 0 


+ • 

356,236 




i * 

0 


+ . 

369,792 




l * 

0 


+ t 

381,348 




I* 0 



+ . 

392,904 




* i a 



+ . 

404,460 



* 

0 



+ , 

416,016 


* 


0 I 




427,572 


* 

0 

X 



+ . 

439,128 

* 

0 


X 



> 

450,684 

* 

0 


i 



t 

462,240 

* 0 



i 



.+ 

073,796 

*0 



i 



• * 

485,352 

0* 



i 



» + 

496,908 


[bb] Output. 
Figure 2,~ Continued. 


V W 


1- 




• 

bOH.Rbti 

0 * 


I 




ft 

520,020 

0 * 


I 




+ . 

531,576 

0 

A 

I 




+ • 

543,132 

0 

A 

I 




+ . 

554,658 

0 


* I 




+ . ■ 

566,244 


0 

1 * 




+ . 

57?, BOO 


p 

I 

* 



+ . 

589,356 



0 I 


★ 


+ . 

600,912 



10 



* 

+ • 

612,468 



I 

0 


* 

+ 

624,024 



I 


0 

* 

+. . 

bSS^SBO 



1 



0 * 

+ i 

647, 136 



I 



o * 

. + 

658,692 



I 



0 * 

t + 

670,248 



I 



ft 

. + 

681,604 



I 



* 0 

> + 

693.360 



I 



* 0 

. + 

704,916 



I 


★ 

0 

. + 

716,472 



I 

* 


o , 

+ 

728.028 

MAXIMA | 

VARIABLE 

3 ME AS* 

B.OOOE 

03, 

CQMpa 7.82BE 03 

VARIABLEU MEAS= 1.00QE-50, 

CQMP= 6.696E 06 


ft* RES COR 


(cc] Output. 
Figure 2,- Continued. 


MEASURED AND COMPUTED TIME HISTORIES 


SYMBOLS /VARIABLE 4 0 MEASURED, * COMPUTED, /VARIABLES 


0 * I 

0 * I 

0* I 

0* I 

*0 I 

*0 I 

0* I 

0 * I 

0 * I 

0* I 

0 * I 

0 * I 


0 * I 

0 I* 

I 0 * 

I 0 * 

I 0 

I 
I 


A 

* 

* 0 
* 0 
* 

0* 

0 * 

0 * 

0 

0 

0 


* 

0 


* 

0 


* 

0 


* 


A 

0 


A 






0 I * 


+ MEASURED, * COMPUTED/ 





TIME 

0,000 
11, 556 
23,il2 
34,668 
46,224 
57,780 
69,336 
80,892 
92,448 
104,004 
115,560 
127,116 
138,672 
150,228 
161,784 
173,340 
184,896 
196,452 
208,008 
219,564 

231.120 
242,676 
254,232 
265,788' 
277,344 
288,900 
300,456 
312,012 
323,568 
335,124 
346,680 
358,236 
369,742 
381,343 
392,904 
404,460 
416,016 
427,572 

435.120 
450,684 
462,240 
473,796 
485,352 
496,908 


Cdd) Output - 
Figure 2 ,~ Continued 


* 


* 


* 


* 

MAXIMA 1 


0 

0 

0 

variable a 


I 

0 

I 

I 

I 

I 

1 

I 

I 

I 

I 

1 

I 

A 

I 

I 

10 

I 

I 

I 

MEAS* 



0 


* 


0 


★ 


0 


* 

0 


* 

* 

0 * 
*0 

* 0 
0 

0 


7.989E 01, CDMP= 7.603E 03 


■ * 

. + 

. * 

. + 

. + 

« + 

. + 

. + 

* + 

. * 

. + 

. + 

t + 

. + 

. ♦ 

+ 

+ 

+ 

+ 

VARIABLE 12 MEAS* 1.Q0QE- 


SU0,4b4 

320,020 

331,57b 

543,132 

554,688 

5b6,244 

577,300 

589,356 

600,912 

612,466 

624,024 

635,580 

647,136 

658,692 

670,248 

681,804 

693,360 

704,916 

716,472 

728,028 

, COMp= 6, 814E 06 


*GO STOW 

THE DATA WILL BE STORED OK UNIT10 


o 

M 


J 


(cej Output. 
Figure 2.** Continued. 


T. 


103 


NT APE, i NRUN 6 


KDT=11B56 


VARIABLES STORED ARE IDENTIFIED UV A 1 IN COLUMNS 11 TO 22 AFTER THE COMMAND *STOR AGE 

^storage minium 


(ff) Output. 
Figure 2.- Continued. 


104 


****0UTPUT DATA HAD TO BE RESCALED BEFORE STORING 
TO OBTAIN EN6R. VALUES MULTIPLY STORED VALUES 6Y ( 


2,2«9E-01 FOR CHANNEL 5 
2.523E-01 FOR CHANNEL 6 
4.9B2E 02 FOR CHANNEL 9 
6,69«E 02 FOR CHANNEL 10 
3.348E-01 FOR CHANNEL 11 
3,372E-0i FOR CHANNEL 12 
VARIABLE 1 IS stored 
VARIABLE 2 IS STORED 
VARIABLE 3 IS STORED 
VARIABLE d IS STORED 
VARIABLE 5 IS STORED 
VARIABLE b IS STORED 
VARIABLE 7 IS STORED 
VARIABLE B IS STORED 
VARIABLE 9 IS STORED 
VARIABLES IS STORED 
VARIABLE11 IS STORED 
VARIABLES IS STORED 
END 


-»GQ PRINT 


Cgg) Output, 
Figure 2.- Continued. 


SOI 


COMPUTED OUTPUT VALUES 


P5I 

M0ETAX 

MBETAY 

RDLL A 

PITCH A 

0*00 

781,0 

-1021.6 

2,652 

-1,150’ 

11,56 

500,7 

-953,6 

2,327 

-1,707 

23,11 

196,1 

-890,9 

1,902 

-2,181 

34,67 

-117,5 

-846,8 

1.386 

-2,552 

46,22 

-422,7 

-825,9 

0,808 

-2,796 

57,76 

-701,9 

-824,1 

0,198 

-2,913 

69,34 

-939,6 

-830,1 

-0,433 

-2,894 

60, B9 

-1124,7 

-827,1 

-1,044 

-2,735 

9£,45 

-1251,2 

-796,8 

-1,609 

-2,444 

104,00 

-1318,3 

-723,1 

-2,090 

-2,039 

115,56 

-1330,6 

-595,2 

-2,464 

-1,555 

127,12 

*12^6,6 

-409,6 

-2,731 

-1,001 

138,67 

"1226,0 

-170,6 

-2,076' 

-0,394 

150,23 

-1127,9 

110,2 

-2,884 

0,228 

161, TB 

-1008,5 

414,1 

-2,746 

0,846 

173,34 

-870,7 

717,8 

-2,478 

1,409 

164,90 

-714,5 

996,6 

-2.111 

1,898 

196,45 

-538,7 

1227,5 

-1,649 

2,302 

208,01 

-341,5 

1391,7 

-1,113 

2.600 

219,56 

-122,9 

1476,7 

-0,523 

2,782 

231.12 

114.8 

1476.9 

0,095 

2,825 

242.68 

366,1 

1394,6 

0,705 

2.731 

254,23 

621,2 

1238,5 

1,301 

2,496 

265,79 

067.1 

1021.6 

1,823 

2,134 

277,34 

1087,3 

760,1 

2,243 

1,673 

286,90 

1264,5 

470,9 

2.538 

1,119 

300,46 

1382,7 

170,7 

2,707 

0,582 

312,01 

1429,6 

-125,3 

2,769 

0,004 

323,57 

1 397,a 

-404,2 

2,711 

-0,583 

335,12 

1285,0 

-656,0 

2,522 

-1,151 

346,68 

1095,2 

-873,2 

2,219 

-1,656 

350,24 

338,8 

-1 050,0 

1.818 

-2,09(1 

369,79 

532,0 

-1182,8 

1.335 

-2.432 

361,35 

194,5 

-1268,6 

0,802 

-2,667 

392,90 

-151,5 

-1304,8 

0,222 

-2.791 

404,46 

-483,9 

-128B.4 

-0.363 

-2,788 

416,02 

-782,0 

-1217,0 

-0,927 

-2 , 665 

427,57 

-1028,3 

-1089,1 

-1,464 

-2,419 

439,13 

-1209,8 

-904,8 

-1,939 

-2,064 

450,66 

-1319,0 

-667,5 

-2,349 

-1.614 

462,24 

-1354,0 

-383,9 

-2,657 

-1 ,087 

473,79 

-131B.3 

-65 , 1 

-2,648 

-0,511 

485,35 

-1219,9 

273,4 

-2.923 

0.102 

496,91 

-1069,6 

612,6 

-2,866 

0,712 

508,46 

-879,2 

931,3 

-2,683 

1.295 


MEASURED VALUES 


MEET AX 

MBETAY 

ROLL 

A PITCH 

A SPMR 

984", 3 

-285,7 

1.915 

-1,828 

"63,8 

1054,4 

-308,2 

2,098 

-2,006 

-58.9 

723.4 

-307,7 

1.816 

-2,363 

-55,0 

258,2 

-410,2 

1,164 

-2,664 

-49,0 

-158,5 

-348,0 

0,199 

-2,710 

-48.1 

-537,6 

-519,7 

-0.203 

-2,807 

-57,7 

-565,7 

-642,1 

-0,496 

-2,961 

-59,0 

-518,7 

-702,7 

-1,008 

-2,929 

-61,6 

-658,5 

-887,7 

-1,568 

-2,662 

“55,9 

-710,9 

-846,9 

-2,030 

-2,246 

-44,2 

-825,4 

-835,9 

-2,406 

-1,936 

-46,1 

-914,8 

-10b5,6 

“2,761 

“1,382 

-48,3 

-691,1 

' -1094,6 

-2, 960 

-0.B27 

-43.3 

-674,6 

-962,8 

-3,103 

-0,293 

-45,8 

-591,3 

-562,4 

-3.110 

0,259 

-41,4 

-390,8 

-230 , 6 

-3,008 

0.820 

-42,9 

-446,0 

-19,6 

-2,737 

1 ,448 

-51.4 

-502,2 

52.5 

-2,356 

1.929 

-54,8 

-318,7 

69,4 

-1,896 

2.451 

-59,8 

-379,6 

464,1 

-1,347 

2,812 

-57,2 

-321,6 

808,5 

-0,814 

3,045 

-53,6 

-520,3 

602,8 

-0,120 

3.163 

-65,0 

-525,4 

927,8 

0,434 

3,137 

-58,4 

-334,0 

737,9 

0,969 

3,002 

-51,8 

-131,0 

561,9 

1,520 

2,735 

-44,7 

204,0 

423,1 

1.973 

2,339 

-36,2 

167,3 

153,1 

2,403 

1.745 

-47,2 

271,6 

95,7 

2,722 

1.20B 

-53,0 

298,5 

83,0 

2,924 

0,648 

-53,4 

577,2 

208,2 

3,031 

0,115 

-45,1 

873,4 

28,8 

3,029 

-0,514 

-47,0 

1001,1 

-151,5 

2,875 

-1,147 

-47,8 

1264, a 

-54.8 

2,610 

-1,694 

-46,2 

1143,9 

-164,3 

2.160 

-2,230 

-54,1 

718,3 

-192,5 

1 ,b46 

-2,589 

-48.7 

264,3 

-250,2 

0,938 

-2,B28 

-46,1 

-342,7 

-607 , 0 

0,045 

-2,898 

-51,3 

-509,4 

-601,5 

-0,381 

-2,968 

-50,6 

-521,9 

"672,4 

-0,935 

-2,918 

-62,0 

-600,4 

-778,9 

-1,443 

-2,700 

-59,7 

-79l e 5 

-771,6 

-1.911 

-2,346 

-54,8 

■=744.5 

-1069,7 

-2,352 

-1,979 

-60,3 

-792,0 

-1180,8 

-2,700 

-1 ,563 

-53.6 

-888,2 

-1190.6 

-2,991 

-1,040 

-50,3 

-839,5 

-1087,1 

-3.154 

-0.462 

-45.0 


Chh} Output. 




Figure 2„- Continued. 


COMPUTED VALUES 


8PMP 

8ETA1 

0ETA2 

BET A3 RDELT1 RDELT2 

8,3 

1,912 

"1 ,4 06 

0,592 

-28 ,'56 

-51,90 

7.6 

1,857 

1,261 

0,743 

-36,00 

-51,47 

10,6 

1.796 

1,099 

0,896 

-47,36 

-42,98 

13,3 

1.740 

0,920 

1,041 

-55,49 

-31,49 

10.1 

1,694 

0,735 

1,172 

-60,26 

-16,02 

14,3 

1,659 

0,557 

1,283 

-61,72 

-4,90 

15,5 

1.627 

0,396 

1,369 

-62.44 

8,55 

14,1 

1,589 

0 ,266 

1,429 

-59,14 

22,66 

10,6 

1,534 

0.173 

1, 467 

-52,99 

35,38 

0,0 

1,454 

0,124 

1,488 

-43,37 

46,08 

-3,1 

1,344 

0.122 

1.498 

-31,62 

52,68 

2,7 

1,204 

0,166 

1.507 

-20,88 

57,97 

7,8 

1,040 

0.253 

1,521 

-8,40 

62,13 

20,2 

0,862 

0,377 

1.544 

5.73 

62,28 

22,9 

0,680 

0.530 

1,573 

20,00 

60,11 

13,8 

0,509 

0,703 

1.603 

32,83 

53,02 

12,6 

0,361 

0,885 

1.624 

41,71 

44,07 

10,9 

0,245 

1.067 

1,625 

49,97 

35,04 

9,0 

0,170 

1.241 

1.595 

56,47 

23.77 

12.8 

0,140 

1.401 

1.528 

60,60 

11,67 

12,7 

0,15b 

1,540 

1.421 

62,23 

-2,39 

25.1 

0.218 

1,657 

1,279 

59,83 

-16,00 

28,5 

0,319 

1,751 

1,108 

57,04 

-29.37 

25.3 

0,453 

1.818 

0.921 

48,15 

-41,99 

23,8 

0.612 

1.356 

0,732 

36,39 

-50.67 

9,9 

0,78b 

1,862 

0,554 

23,28 

-5b , 3b 

3,3 

0.964 

1.832 

0,402 

10,17 

-57,13 

6,9 

1,136 

1,763 

0,280 

0,05 

-57,72 

14. 1 

1.294 

1,655 

0,209 

-ii, n 

-57,79 

11,0 

1,432 

1.509 

0,179 

-24.72 

-54,91 

9,9 

1.54b 

1,330 

0,197 

-35.83 

-47,23 

11,4 

1,634 

1,126 

0,258 

-44,35 

-38,97 

6,8 

1,695 

0.909 

0,359 

-51,49 

-29,07 

11.5 

1,729 

0,693 

0,491 

-55,51 

"1 7, bo 

9,7 

1,738 

0,490 

0,647 

-5B, 66 

-b , 5 1 

5.1 

1,720 

0,314 

0.815 

-50.34 

b,63 

11,6 

1.672 

0.17b 

0,985 

-54.87 

18,4b 

12,4 

1 , 59u 

0,085 

1,149 

-51,05 

29,9b 

12.2 

1.484 

0,046 

1.290 

-43,62 

40,52 

11.7 

1.342 

0,061 

1,426 

-36,26 

48,92 

7,8 

1,172 

0,127 

1,52b 

-25.36 

56,01 

9,0 

0,981 

0,240 

1,604 

-12.98 

59,69 

9.2 

0,778 

0,392 

1,054 

-1*33 

ol.fll 

8,1 

0,576 

0,572 

1 , o78 

12,11 

60,51 

15,9 

0,388 

0, 7bB 

1,67b 

24. in 

56.21 



106 


520,02 

*660, a 

1207 ,o 

-2,370 

1,824 

531,57 

-«23,0 

1420,7 

- 1 . 94 a 

2,263 

543,13 

-176,5 

1553,2 

-1,444 

2,616 

554,69 

76.1 

1593,6 

-0.877 

2,861 

566,29 

323,1 

1537,8 

-0,284 

2,990 

577, HO 

562,3 

1383,8 

0,330 

3,007 

589,35 

738,9 

1157, a 

0,926 

2,892 

600,91 

995,0 

6bl , 3 

1.492 

2,b6Q 

612,«7 

1173,9 

522,3 

2,017 

2,314 

62a, 02 

131b,9 

164,5 

2,460 

1,664 

635, 5B 

laii.b 

-188,7 

2,812 

1,323 

6a7,l3 

1«52,8 

-516, a 

3,040 

0,710 

653,69 

1«23,6 

-801,9 

3,131 

0.071 

670,25 

1313,2 

-1033,7 

3,101 

-0,575 

661,30 

1133.9 

-1205,7 

2,943 

-1,186 

693,36 

87a, 5 

-1316,6 

2.669 

-1,748 

70a,91 

550,6 

-1369, a 

2,277 

-2,259 

716,-417 

179,0 

-1370,2 

1,786 

-2,685 

728,03 

1599,0 

1722,0 

4,000 

3,959 


-620,6 

-617,7 

-3,200 

0,039" 

-3b i 3 

-483,5 

-362,0 

-3,119 

0.706 

-44,1 

-591 ,5 

-122,4 

-2.858 

1,314 

-47.9 

-289,1 

157,0 

-2,600 

1,806 

-46,4 

-312,0 

189,6 

-2,155 

2,336 

-53,5 

-266,6 

638,7 

-1,645 

2,688 

-41,7 

-120,6 

962,1 

-1,106 

2,949 

-41,7 

-167,9 

1081,1 

‘0,471 

3,133 

-40,6 

-155,4 

1229,7 

0,163 

3,144 

-44,3 

-274,4 

990,0 

0,896 

2,951 

-51,9 

-385,7 

648,5 

1,506 

2,670 

-51,0 

-307,8 

329,8 

1,952 

2,278 

-46,2 

-165,3 

28.1 

2,370 

1,776 

-55,0 

132,2 

127,3 

2,651 

1,314 

-47,9 

334,4 

347,7 

2,875 

0,838 

-44,3 

379,6 

156,5 

3.013 

0,210 

-48,3 

666 , 5 

13,6 

3,032 

-0,391 

-45,3 

1002,9 

-101,1 

2,961 

-0,986 

-45,6 

1599,0 

1722,0 

4,000 

3,959 

-49,8 


19,1 

0.227 

0,968 

1.651 

36,70 

49,71 

17,6 

0,105 

1,160 

1,598 

46,97 

39,43 

17,5 

0,031 

1,333 

1,515 

53.64 

29,74 

6,4 

0.011 

1,479 

1,401 

59,04 

18,60 

3,9 

0,044 

1,590 

1.256 

60,54 

6,48 

2,8 

0,130 

1,666 

1,084 

61,37 

-4,46 

3,2 

0,262 

1,707 

0,891 

58,76 -17,63 

11,8 

0,430 

1,717 

0,687 

54,28 -28.66 

16,4 

0,623 

1.699 

0,484 

49,12 -39,40 

22,8 

0,630 

1,659 

0,296 

39,74 -49,40 

31,1 

1,037 

1.599 

0,136 

29,67 -57,29 

26,4 

1.231 

1.519 

0.016 

16,52 -63,58 

18,4 

1.401 

1,418 

-0,054 

2,03 -64,89 

7,1 

1 ,5«0 

1,295 

-0,069 

-9,96 -63,85 

-0,6 

1,641 

i,U6 

-0,027 

-22,52 -59,43 

7,0 

1,703 

0,975 

0,070 

-33,25 -53,39 

10,6 

1,728 

0,785 

0,216 

-43,92 -47,47 

9,2 

1.721 

0 ,585 

0,400 

•53,38 -37.9B 

13,6 

1,668 

0,386 

0.611 

-59.71 -26.91 




***£ND OF IDENTIFICATION RUN NUMBfcH 1 , TOTAL COMPUTATION TIMEU-1,.50 &EC. *** 
★RETURN 


(ii} Output. 
Figure 2 .~ Continued. 
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HUMBER OF ROTOR REVOLUTIONS 


HUMBER OF ROTOR REVOLUTIONS 


(jj) Identification results for two iterations; plot of hub moments 
and the residual amplitude and autocorrelation of the error 
between computed and measured hub moments. 

Figure 2.- Continued. 


E 




NUMBER OF ROTOR REVOLUTIONS NUMBER OF ROTOR REVOLUTIONS 

(kk) Identification results for two iterations; plot of swashplate 
angles and the residual amplitude and autocorrelation of the 
error between computed and measured swashplate angles. 

Figure 2.- Concluded. 
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1 LOGON FSTGK,MAlNPR,P26nfFSTj9 Til9«7 >C-EPD KAWN1NG STOP ]7 PH 5«S5 ' 

Z CALL HAIN2S.fi 


3 

-too 

0 0 .0 0 







4 

+ .40 

+00+.268 

+ 03+ ,?6Ba 

+03+.165 

+02+.117 

+01+.97 

+ 00 


5 

♦ .15 

+01+, 1928 

+03+,)P8 

*01+, 0566 

* 0 1 + , 0 0 

+00+.12021+06+.1U5 

+ 01 

<o 

-.9«3 

+01+.225 

+01+.0 

+OO+.70 

+ 02+.2?<l6 

-02 



7 

+ i 0 

+00+, 0 

+00-.24?g 

+ 01+, 1 1296 + 0 1 + , 10 

-01 



8 

+.1412 

+01-.0666 

+OI+.1U 

+01-, 12535+02+, 592 

+00+, 1 081 

+02+.657 

+ 01 

B 

+ .3 

+ 0 0+., 15 

+O0+. 60 

+02+.O0 

+ O0+. t 020O + O5 + .B7 

+ 00 


ID 

+ .00 

+00 +.70 

+01*, 80 

+02 


1 



It 

+,2652 

+01-.2856 

+02-.115 

+01-.519 

+02-.507 

+02+.121 

+ 02 


IZ 

♦ ,1-768 

+ 01 

",252 

+ 01 





13 

+.5778 

+01+.00 

•+0 0+.00 

+00+.P 

+ 01 




4 

16 

+ .1(1 

+02+.10 

*02+, io 

-01+.10 

-0 1 + , 1 

-01+.1 

-01 + , 1 

-01 


\ 


ft 

i.7 

18 

K°> 

m 

92 

•?2> 

54 m 
J5 § 
2C 
57 
2 % 

1°> 

30 

3J 

32 
3b 

54 

55 

36 

31 

33 
3? 

40 

'41. 


•sensitivity 

SENSITIVITY ANALYSIS 
21 S3 U 


IP HELICOPTER ROTOR PAR AMETERS— RECORD 
210000 

.0001 


22222222222222222222? 

+ ,268 +03+.97 +00+.857 

+,87 +00-.699 -02-.10 

+ .1 -01+.355 *00 + . PO 

+.3 +00+.15 +00-.RO3 


+ 01 + , 1202l + 06+ t il566 +01+.15 +01 C 

-o/j + .i -ou+.ibb +01+.22S +oi c 

+42+ ,7 +01+.0 +O0+,5?9fe +02 C 

+ 01 


BIY ^LOSS, CLEG, BETA, LOCH.S^EP. C2,LAh ,LAMy,LAHY f BRDtl,PCON, 

CD, Mil, CDHP,FRMP t HlX,GSP.n,GYIP,GYID,T«ST 
+ .15RR +00 + . 1722 +00 + .00000-03+ t 3'?BR -03+.3«95 -03 + .51O0 -05 
FT-LBS FT-LBS DEGREE DEGREE 
+,8797 -02+.UUP3 -02 
FT-L8 FT-LB 

SLUG » BT2 fNO DIMIOEG FTLB/RAOtNO OIM)DEG (NO D I H ) (NO DIM) (NO DIM)(NO DIM) 


FT 

DEG 


DEG 


(NO DIM) (nO MM)F7LB/R,SFTLR/R.SSUtlG.FT2(NO 0IH)SLUG.FT2SUJG,FT2 


42- OSET 5 

42 RUN 1 6 5778 

£4 END 

4b +*++******. 


(a) Data input deck. 
Figure 3.- Sensitivity run. 
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(b) Data input deck. 
Figure 3.- Continued. 




ThO DEGHEE OF FREEDOM HELICOPTER BLADE AND GYRO SIMULATION 
PROGRAM CONTROL LOGIC 

I F LOQ=- 1 IHINGE= 0 IROTS 0 INFas 0 ISIML= 0 IFLQWs 0 IRtC* 0 



- 1 ; 


LITTLE AlS* 


BLADE parameters 

SIX* 0.40 Q I Y — 2fa S ,00 BIZs268,40 HADIUS=16,5 CHOKD=I,17 BLADE L0SSs,97 
SWEEPS l ,S0 RPMS 192,6 hinge POSITIONcl.ee LOCKS 4.566 DELTA3S 0,00 K BtTA=0, 120210E 06 Pl= 1,4b 

TwISTs -9.43 PRECONEs 2,250 CT= 0,0000 AIR VELOCITYs 70,00 AIR DENSITY*, 002246 ALPHAS 0,000 ALPHASs 0,000 
0,000 LITTLE BIS* 0,000 BIG AlS=-2,428 BIG BiSs 1,130 CD=S.010 LAM=0 , OOOOOO LAMX=0 ,000000 LAM Y*0 , 00 0000 


BLAPE INITIAL CONDITIONS 

BETA1* 1,912 BET A 1 RATE* -4,&7 BET A2= 1,400 BETA2 RATES -12,53 0ETA3= 0,592 BET A3 RATES 14.81 COLLECTIVES 8,6 


GYRO PARAMETERS 

IPs 0,300 IDs 0,150 GVSO ANGLE* 60,0 GYRO DAMP L= 0,00 GYRO RPMslo200,0 MECHANICAL ADVANTAGE C2s0,870 
FEATHERING RESTRAINT KZETAs o,00 FEATHERING DAMPING CZETAs 7,00 SL'ASMPLATE DAMPING CSDAMPs 80,00 PSIOF= 0,00 


DELTA!* 2.652 DELTA1 RATE* 


INITIAL CONDITIONS ON GYRO 

-28,56 DELTA2= -1,150 DELTA2 RATE= -51,90 NUls-50,70 NU2= 12,10 


PHI» 1,768 RPhl* 0,00 THETs -2,520 RTHETs 


0,00 RMBIAgs o,00 PMBIASs 0,00 RABIAS= 0,000 PABIASs 0,000 


INITIAL CONDITIONS FOR STARTING AND STOPPING THE INTEGRATION ROUTINE 
DELPS I a 5,7S REVSs 0,00 REVQs 0,00 REVpss 2,00 TRUNCsO.OOOO 


SCALE 1 1 3 

1,0006 01 


SC ALE (2 ) 
1.000E 01 


SCALE FACTORS FOR PLOTTING PROGRAM 
SCALEC3I SCALE (4) 5CALEC5) 

1.000E-02 1 , OOOE-02 1,0008-02 


SCALE (61 
1, OOOE-02 


SCALEC7J 
1, 000E-02 


SCALEC8) SCALEC9) 

0,000 0,000 


SCALE CIO) 

0,000 


SCALE ( 1 1 1 

0,000 


SCALE ( 12 ) 

0.000 


SCALE (13) 

0,000 


SCALE (14) 

0,000 


(c) Output. 

Figure 3." Continued. 
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parameters calulated from input data 

OMEGAS 20,169 GYSPEDb 52.96 Mu = 0,355 l > AMB0Aa- e 006999 


DELTAT=0,50QOE->02 TIMES = 0 ,'OOOQ 


^SENSITIVITY 

SENSITIVITY ANALYSIS FOR HELICOPTER ROTOR PARAMETERS— RECORD 6 


TIMED=0, 0000 


TIMEFS0.6231E 00 




(d) Output. 
Figure 3.- Continued, 


DATA CARDS USTlN&*+***RuN NUMBER 1- fa 
X AXIS INCREMENT KDT= 6778 SKIPs 1 63 POINTS PER CHANNEL 

THE 0 FOLLOWING CHANNELS WERE READ J 0, 





(e] Output. 

Figure 3.- Continued. 



SENSITIVITY ANALYSIS FOR HELICOPTER ROTOR PARAMETERS"" RECORD b 



£1 PARAMETERS y: : 4 OUTPUTS 

63 MEASURED VALUES PER OUTPUT ( 252 MEASUREMENTS), 
TIME INTERVAL BETWEEN MEASUREMENTS 0,0050 SEC, 
ANGLE INCREMENT BETWEEN MEASUREMENTS 5,78 DEG 


1 WAS THE SKIPPING FACTOR USED 

2 STEPS OF INTEGRATION IN EACH INTERVAL 


INITIAL CONDITIONS 


4.629E-02 -4,9856-01 - 

2, 007E-02 

-9, 058E-0 1 

3.337E-02 

-8, 144E-02 

2,443E-02 

-2,1586-01 

1.033E-02 

2.505E-O1 




SCALING FACTORS FOR DATA 
1DTU- l t 599£-01 FT-LBS 
8.797E-03 FT-LB t 4. 

UNITS 
/ 1.722E 

4936-03 FT 

-01 FT-LBS 
-LB / 

/ 4,OOOE-04 DEGREE 

/ 3.959E- 

04 DEGREE / 

3,4956-04 

/ 

‘ 5.140E-06 


• 

PARAMETERS NAMES 

i) BIY 21 LOSS 

3) CLEC 

4) BETA 

5) LUCK 

6) SWEP 

7) C2 

8) LAM 

9) LAMX 

10) LAHY 

11) BRDD 

12) PC ON 

13) CD 14) Mu 

15) CDMP 

lb) POMP 

17) BIX 

18) GSPD 

19) GYIP 

20) GYID 

21) TWST 




- 

INITIAL VALUES OF THE PARAMETERS 
2,6006 02 9.700E-01 6,5706 00 

1 a 2026 05 

4.566E OO 

1,500E 00 

8, 700E-01 

-b,99OE*‘0i 

-1 , 000E-05 

1, OOOE-Ob 

1,8606 00 

2,2506 

0.0 

1.O0OE-O2 3, 5506-01 

e.oooE oi 

7.000E 00 

4,OOOE-Ol 

5.2966 01 

3.000E-01 

1 ,500E-01 

-9.430E OO 





***THE FOLLOWING WEIGHTS 
1.000E 00 

ERRMIN * 1.000E-04 , 

ARE USED*** 
1,0006 00 
DMIN s 0,000 

1 , OOOE 

OO 

1 , OOOE 

00 






INITIAL PARAMETER INCREMENTS FOR GRADIENT EVALUATION 
l,000£-02 1.0QQE-02 1.000E-02 1,0006*02 1,OOOE"C2 
l,000E"02 1,0002-02 1.Q0QE-02 1,0006-02 1.000E-02 

******** 

1.000E-02 

1.000E-02 

1 , 000E-02 
■ 1,0006-02 

1 , OGOE-02 
1,0006-02 

1.0006-02 
1 , 0006-02 

1 , OOOE-02 

1,0006-02 

I.OOOE- 

02 

ITERATION 0,. MODE WAS99, KNO= 

2 


T c p c 



REL, ERROR * 0,00 

COST * 

0,000 


1 13 25 2 14 26 

2.680E 02 9.7O0E-O1 

3 15 27 
6,57QE 00 

4 16 25 
1.202E 05 

5 17 29 
4.566E 00 

6 18 30 
1.500E 00 

7 19 31 
8.700E-01 

U U w w 

0 20 32 
-6 , 990E-03 

9 21 33 
-1 ,0006-05 

10 22 34 
1 , OOOE-Ob 

11 23 35 
1,8806 QO 

12 24 36 
2,250E 

00 

1 , 0D06-Q2 3.55DE-01 

a.ooot ot 

7, OOOE 00 

4, 000E-01 

5.296E 01 

3.000E-01 

1,5006*01 

-9, 430E 00 






(f) Output. 

Figure 3.- Continued. 


if; 

BASIC 


CRITICAL 



PARAMETER 

SEPARATION 

PARAMETER 

SEPARATION 

1 

GYIP 




ffil- 

LAMX 

l.OOt 00 

BIX 

1 ,06E"01 

% 

SETA 

9| 13E-01 

SwEP 

7.6BE-02 

f : 

GYID 

8 * 34E*0 1 

BIX 

7,5bE*-0H 


CDMP 

6,67E^01 

BIX 

3.23E-02 


LAMY 

5 t 12E-0l 

SIX 

1.36E-02 

J; 

PGDN 

3.39E-01 

BIX 

1, 19E-02 

1 

BIY 

3.30E-01 

BIX 

l.Ut-02 


MU 

3 t 0TE"OJ 

BIX 

b»bOE*Q3 

1 

LOSS 

2.39E-0I 

BIX 

b,13E"03 

lA, 

lam 

1.83E-01 

BIX 

5.8SE-03 

k£i 

CD 

6 t Q9E»02 

BIX 

5,b9E-03 

■V: 

C2 

5.87E-02 

BIX 

4.92E-03 

-r 

. BRD.O 

5 t 06E-02 

BIX 

«,8bt»03 

If 

$■ 

FDMP 

3,62E-02 

TwS T 

i|«00£“03 

•|U' 

LOCK 

5.78E-03 

SwEP 

3,*I7E«03 

:$■ 

BIX 

3.52E-03 

TWST 

2.10E-03 

t . 

SWEP 

3 1 39E*03 

TWST 

2.00E-03 

->■ 

CLEC 

1.95E-03 

TWST 

I.75E-03 


SEPARATION 

0.92E-07 


DEPENDENT SETS OP PARAMETERS 


GSPD,GYIP, 

IF G5PD i = 1, THEN GY IP i *«5,b6fc*Q3 
0,31E-0« 

BIY , LOSS, CLEC, LAM ,PCQN,CDHP,GYIP,GYID,TWST» 


IF TWST > « If THEN 


01 Y ' s-l.OlE-Ol LOSS 1 =-5 , feit-05 CLEC 1 a.f,.53E«01 
G YIP 1 3-l,flaE-03 GYlD 1 s-fs,85E-03 


LAM I s«l , 73E-03 PCQN» x 5.2BE-Q3 CDKPI ■ -« i n'2E-Q.i 


(g) Output. 

Figure 3.- Continued. 


ARE 21 PARAMETERS In THIS PROBLEM , THE SEPARATION THRESHOLD AAS 0,iOE-03 

MAGICPUMBER 111222212221221220110 


***DEP£NDENT SET NUMBER 1 ***SEPARAT ION s 0.92E-07 
* 

* A TRUE VALUE 13 OBTAINED FOR 

* BIY , LOSS, CLEC, LAM ,PCON? CDHR, GYIP,GYID, 

* IF IS KNOWN THE TRUE VALUE OF 

* GSPD, TwST , 


* INDEPENDENT PARAMETERS 

* BETA, LOCK, SWEP, C2,LAHX,LAHY,BRDQ, CD, MU/FDMp, 6IX, 

* 

* irrelevant parameters 

* NONE, 

* 

* NOT ESTIMATEO 

* GSPD,TwST/ 

* 

* not used 

* NONE, 


DET= 0,1147030599762990-36 TIME * 3.959 SEC 


parameter increments CDA/A) for gradient evaluation 


BIY = 

l.QE-01 

LOSES 

2.8E-02 

CLECs 

2.2E-02 

BETA* 

l.OE-Ol 

LOCKS 

U IE-01 

SwEPs 

l,bE“01 

C2* 

B.feE-02 

LAM = 

5.0E-O1 

LAHXs 

5.0E-01 

Lamys 

5.0E-01 

BKDQs 

5.0E-01 

PCONs 

2.3E-01 

CO* 

S.OE-Oi 

- Mus 

l.OE-Ol 

CDMPs 

3.9E-01 

FDMps 

S.OE-Ol 

8IX = 

5.QE-Q1 

GSPDs 

1.4E-01 

GYIP* 

1.4E-01 

GY 10= 

5.0E-Q1 

T«mST* 

2.7E-02 









(h) Output. 


Figure 3.- Continued 


FINAL RESULTS OF THIS JCENf IFICATIQN 


ft 

% 


i 

f 


1 


til. 

.TEST 

** 

COST 

9 0 * 

COOO 


F 

CORRELATION * 

1,00000 


1: 




RELATIVE ERROR 

» 0. 

0000 





‘i- 

% 


E5TIMAT6D^ALUES OF THE 

parameters 





& 










DEPENDENCY 

INDEX 




NAME 


EST , VALUE 

ERROR SOUNDS UNITS 

SENSITIVITY FINAL 

INITIAL 

i 


1 

. 91 Y 

Z 

2.6BOOE 02 

+/■ 

0,0 

SLUG.FT2 

0,76922 

1 

2 

% 


2 

LOSS 

9 

9.7000E-01 

+ / D 

0,0 

(NO DIM) 

2,74623 

1 

2 

• 1 ; 


3 

CLEC 

9 

B.570QE 00 

+/» 

0.0 

DEG 

4,07064 

1 

2 

| 


4 

BETA 

Z 

1.2021E 05 

+ /" 

0.0 

ftlb/rad 

0,74851 

2 

2 



5 

LOCK 

X 

4,56605 00 

+ /- 

0,0 

{NO DIM) 

0,87229 

2 

2 

> £ 


6 

5*EP 

a 

1.5000E OO 

+/- 

0,0 

DEG 

0,51594 

2 

2 



7 

C2 

X 

B,7000E-01 

+ /- 

0,0 

{NO DIM) 

1,10879 

'2 

2 

| 


8 

LAM 

a 

-6.9900E-03 

+/- 

0,0 

{NO DIM) 

0.14B46 

1 

2 



9 

LAMX 

X 

-1.0000E-05 

+ /- 

0,0 

(NG DIM) 

0,00028 

2 

2 



.10 

lamy 

z 

1.0000E-Q5 

+/- 

0,0 

(NO DIM) 

0,00031 

2 

2 

-li; 


n 

BR DO 

z 

t.asooE oo 

+/" 

0,0 

FT 

0,01868 

2 

2 

I 


12 

PCON 

X 

2.25Q0E 00 

+ /•» 

0,0 

DEG 

0.31244 

1 

2 



13 

CD 

£ 

1 ,00005*02 

+ /" 

0,0 

CNO DIM) 

0,05107 

2 

2 

i 


14 

M|J 

E 

3.5500E-0 1 

+ /" 

0,0 

(NO DIM) 

0,71696 

2 

2 

'k 


15 

CDMP 

X 

B.OOOOE 01 

+/" 

0,0 

FTLB/R.S 

0,13415 

1 

2 


h-5 

16 

FDMP 

s 

7.0000E 00 

+/■ 

0,0 

FTLB/R.S 

0,07337 


2 


F-» 

17 

BIX 

s 

U.OOOOE-Ol 

+ /- 

0,0 

SLUG, FT 2 

0,03063 


2 



18 

GSPD 

c 

5.2960E 01 

+ /- 

0,0 

(NO DIM) 

0,56705 

t- 

2 



19 

GYIP 

z 

3.0000E-01 

+ /- 

0,0 

SLUG.FT2 

0,56705 

1 

2 

"t 


20 

sy id 

z 

1.5000E-0! 

+ /- 

0,0 

SLUG.FT2 

0,00098 

1 

i 

1, 


21 

TwST 

z 

-9.4300E 00 

+/- 

0,0 

PEG 

3.26822 

0 

2 


***** tat** 


***END OF IDENTIFICATION SUN NUMBER 1 
★RETURN 



TOTAL COMPUTATION TIME126.50 SEC, *** 


{i) Output. 
Figure 3.- Concluded. 


APPENDIX A 


INTERNAL PROGRAMS 

A description of the internal programs and library programs 
is given in this appendix. The user is not required to change 
these programs. Although if the users application of these 
programs requires the estimation of more than 36 parameters some 
changes in these subroutines is required. The user will then 
have to become thoroughly acquainted with the programs given in 
this appendix before altering them. For cases requiring less 
than 36 parameters the application of these programs has been 
discussed in the text. 

9. READIN$$ 

Description 

The subroutine reads the measured data from either input 
cards or from the computer disk. The data the program reads 
must be scaled by the scaling factor SCALE (J) . This scaling 
factor reduces all data to a four digit integer with the appropriate 
sign. For the data to be read from cards or disk storage a 
data card submitted with the identification input deck will 
specify; which disk unit is to be read. This card has the format 
(starring in column 1) DESTxx where xx represents the unit from 
which data is to be read. The READIN subroutine which is called 
by the INOUT subroutine will then read the cards from the disk. 

If DSET05 is specified the READIN subroutine will look for the 
data cards submitted with the identification data input. (See 
example 1 for data card input and example 2 for data read from 
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disk} . An example of how the data must be organized for card 
or disk usage is shown in table 1A. All the cards contain, 
in column 1 to 4, a code name indicating the type of card defined 
as : 

RUN first card of the data set 

DATA first card containing data points corresponding to 
a variable 

**** following cards containing data points of the same variable 
END last card of the data set 

In column 5-6 and 8-9 two integers are found with the following 
meaning : 

-for a 'RUN 1 card the run number is specified and the time 
interval between measurements is 17 to 20 (note in table 
1A the time interval was 5700 which had the units of milli- 
degree) 

-for a 'DATA* or continuation ('****') card the variable 
index and card index corresponding to this variable. 

(Example **** l 81 is the 81st data card containing the 
data points of the variable number 1) . 

In columns 11 to 80, 14 numbers are found with the format 
15 representing the successive values of the variable. 

Usage 

CALL READIN (KSTOP, LIST, MISFIT) 

The arguments in the call carry out the following functions: 

KSTOP total number of data points that can be read 
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TABLE 1A.- EXAMPLE OF MEASURED DATA SET READ BY SUBROUTINE READIN$$ 


i 

K 

RUN 

1 

6 5700 

( 

DATA 

1 

1 -1642-2469-2053-1167 

I 

% 

**** 

i 

I 

1 

t 

2 -793-2281-4348-4746 

• • ' 

t t 4 i 

i=i- 

ti 

**** 

1 

i ' 

81 1866 1602 1125 1560 

$ 

DATA 

2 

1 1102 1194 1104 948 

1 

$ 

**** 

l 

2 

2 599 646 858 1129 

| 

[i; 

t 

< 

* *** 

2 

61 -936 -865 -966 -962 

1: to 

DATA12 

1 -2960-2972-3030*3116 

O 

h: 

?: 

****12 

* j 

2 -4093-4117-4171-4276 

1 

Ij: 

****12 

49 -309810000 0 0 

fr "!- 

ti.‘ 

a- 

END 




b- 


jr 

%■ 

II- 

S' 

L 

l 

fi. 1 

13 : 

| 


&’ 



1083 -881-1315 0 381 508 -637 S?9 -452 -769 

3931-4839-3783-4440-3390-2625-2068-1251 872 875 

, i 

647 12310000 0 0 00 0 0 0 

760 430 330 173 -88 -244 -234 -J43 178 449 

1190 1316 1367 1260 1281 1051 839 382 132 -193 


-889 -60510000 0 0 0 0 0 0 0 
31 1 3-3275-34 3580-3564-3743-3792-3893-4077-4132 
4226-4158-4104-4077-4044-4021-3774-3828-3610-3573 


oooooooooo 


LIST 


0 : 


no print-out of data cards after they are read 
1: data cards are printed-out after they are read 

MISFIT data point at which program should start reading data. 
The labeled common /STATE/ must appear in the program and in the 
calling program. The variables in this common statement used 
in the program are: 

ND number of points to be read 

KSK skipping factor which determines whether each point 

(KSK=1) should be read or every other point (KSK=2) 
etc., should be read. 

INIT (12) an array of 12 1-digit integers corresponding to the 
output channels. If 1, the first data value of the 
corresponding output is subtracted from each of the 
other data points. If 0 no subtraction is made and 
the data is read in as stored. 

YM{200,12) the matrix in which the data is stored for a maximum 
of 12 channels. 

Note that the increment between data points is read into the 
program on the first data card as shown in the example above 
and is defined by the variable KDT. The increment is defined 
as milliseconds or millidegrees and is given by the variable 
DT in seconds or degrees. 

10 . PARAM$$ 

Description 

The subroutine PARAM carries out the parameter identification 
of the mathematical model. 
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The sum of the measured error squared is calculated and stored 
in the matrix 0UT(1). After initializing the subroutine SETTIM 
is called in order to keep track of the computation time during 
the parameter identification cycle of the program. Next the sub- 
routine DYN is called. This subroutine carries out the integration 
of the equations of motion for the nominal values of the model 
parameters. The following results are brought into the PARAM 
subroutine? the calculated response stored in the matrix YC, the 
error between the calculated and measured response ER = YC - YM 
and the weighted calculated response YW. After the "call" to 
the DYN subroutine is completed the relative error is calculated 
in the PARAM subroutine.. The relative error is defined as: 

1 (YCi-YMi) 2 /SYM l 

v - — — — - — - — 

Relative errors V NS 

where all variables have been defined except for NS which 
is equal to the number of measured outputs (NS ^12) . The 
difference between the present value of the error is calculated 
next. If the present value of the error has increased by more 
that 10% of the past value the subroutine ADJUST is called. 

In the subroutine ADJUST the parameter values are decreased and 
the subroutine DYN is called to obtain new values for YC, ER and 
YW as has been previously described. Following the computation 
the subroutine DYDA is called which calculates the matrix (see ref, 
11 
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called by the PARAM subroutine. COR calculates the increment 
required in the parameters to reduce the error to zero between 
the calculated and measured time histories, (ref. 1) , The incre- 
ment is given in matrix form as 
3E: = - (DEADER)"' DEEPER 

Subroutine COR also establishes the dependency between each of 
the parameters. The results of the dependent analysis performed 
in COR are printed out after returning to the PARAM subroutine. 

The entire above procedure is repeated for the number of iterations 
that have been specified. If the error (ER) is less than l.E-07 
before the total number of iterations requested have been completed, 
the program terminates the identification process. 

Usage 

CALL PARAM (N1S, N3S, Ml, DMINS , EREMIN) 

The arguments in the call serve the following functions: 

NlS total number of parameters that can be estimated (max 36} 

N3S total number of data points (equal to number of data 

points per measurement multiplied by the number of 
measurements ) 
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Ml control variable used for calling the subroutine PARAM. 

If M1=0 the PARAM subroutine is not called; Ml-1 the 
PARAM subroutine is called. 

DMINS value at which a parameter is considered irrelevant; 

i.e. if the relative change in the output is less than 
DMINS=1.0E-07 the parameter is irrelevant. DMINS is set 
in the IDENTl subroutine. 

ERRMIN the minimum error the identification algorithm will 
stop iterating. ERRMIN=.0Q1 was set in the IDENTl 
subroutine . 

All common statements in this program should not be altered 
by the user. 

11. ADJUST$$ 

Description 

This subroutine is called by the PARAM subroutine when the 
difference between the present and past value of the error has 
not decreased by more than 10%. The increment in the model 
parameters are decreased in the subroutine and the time histories 
for the model are again calculated. This procedure is continued 
until the error test has been satisfied. 

Usage 

CALL ADJUST 

There are no arguments in the calling list of the program. All 
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the common statements present in the program are for passing 
variables between the identification programs. The user is not 
required to make any changes or additions to this subroutine. 
Control from the program is returned to the PARAM subroutine. 


12. DYDA 

Description 

After the time history for the nominal values of the 
parameters have been calculated the subroutine DYDA is called. 
This subroutine calculates the change in the output due to a 
change in the parameter and then stores the result in the 
matrix r a,^ . a,. "I 


3$(t 1 ) 

ayftj) 

... a 2 ?^) 

3a x 

9a 2 

3a s 

sy(t 2 ) 

ay(t 2 ) 

ay (t 2 ) 

3a i 

i 

t 

3a 2 

aa K 

3y(t M ) 

ay‘(t M ) 

3 ? < V 

3 a j 

3a 2 

3 V 


where 


3$(t M ) 


represents the change in the output at the 1 s 


time due to a change in the a^'s parameter. 

Usage 
CALL DYDA 

The user is not required to make any changes or additions 


to this subroutine. All commons in DYDA are used entirely 
between the identification programs and do not require modification 
by the user. The subroutine returns control to the PARAM subroutine 


13 . COR 


Description 

The subroutine is called by the PARAM subroutine after the 
derivative matrix DER and the error matrix ER have been calculated. 
The subroutine uses these matrices to obtain the solution of the 
equation 

dA = - (DEADER)" 1 DER T EjR 

where dA represents a column vector whose elements are the 
incremental changes required in the parameters to force the error 
ER to zero. The above equation represents the least squares solu- 
tion obtained by minimizing the quantity 

(ER+DER dA) 2 =0 

The other important function the subroutine performance is 
determining which parameters of the model can be uniquely iden- 
tified from a given set of measurements. A complete description 
of the identification technique and the problem of determining 
a unique set of parameters is discussed in reference 1. In 
particular appendix E of reference 1 gives a discussion of the 
subroutine COR. 

Usage 

CALL COR (Nl, N3, THR, MODEl} 

The program has four parameters in the calling list. 

These parameters are: 


J ... 


N1 number of parameters of the model K Nl*£ 3 6 

N3 total number of output measurements 1^N3^2400 

THR value of the threshold O^THRs-l (THR equal to 

zero defines the classical linear dependence 
between parameters) 

MODE integer controlling the output; may take values 

from 0 to 6 (0 prints no output, 6 prints out the 
full information obtained from COR, between 0 
and 5 a partial print out of results are given - 
see example) . 

The remaining variables needed in the program come through the 
common statements in the COR subroutine. The user is not 
required to make changes to this subroutine. 

14. TRADUC$$ 

Description 

TRADUC is used to translate logical information into 
parameter names in order to ease the reading of the comments 
in the COR subroutine. 

Usage 

CALL TRADUC {FOUND, Nl, K) 

The user makes no changes to this subroutine. The 
subroutine is called only by subroutine COR. The names of 
the parameters are given through the COMMON/WRITE/ in the 
array WA. The output of the subroutine is found in the 
array WR of the COMMON/WRITE/ . 
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15. ERROR$$ 

Description 

The ERROR subroutine is called after the identification 
of the parameters has been performed. The program calculates 
the relative error, the correlation, and the autocorrelation 
of the error and the variance of the parameters. 

Usage 

CALL ERROR (Nl, N3 , Ml, V, CORR, RELERR) 

The ERROR subroutine is called by the IDENT1 subroutine 
after the identification process is completed. The functions 
of each variable in the calling list are the following: 

Nl number of parameters (supplied to this program) 

N3 total number of data points (supplied to this 

program) 

Ml not used in program 

V cost calculated in the subroutine and defined 


CORR 


as V= 2 (ER) 2 

S.(YC r YM. ) z /l .YM 2 . 

the correlation defined as CORR = 1 - ^ x 3- ± i 


NS 


RELERR the relative error defined as 


I E/YC.-YM. ) 2 /2.YM? 
RELERR = | 1 1 1 1 1 


NS 


The user is not required to make changes to this subroutine, 
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16. CRUNCH $$ 

Description 

The CRUNCH subroutine is used to write the computed data 
YC on computer disk. Before the data is written on disk, it 
is converted to four digit numbers by the scaling factor 
SCALE (J) see subroutines OUTPUT and READIN. This is done 
to minimize the field length required for each data point 
when the data is written on cards. However., if the computed 
data (YC) after scaling is larger than a four digit number 
a new scale factor is calculated in the CRUNCH subroutine. 

The new scale factor allows the computed data to be written 
by a four digit number. The subroutine CRUNCH writes the new 
scaling factor for each data channel (maximum of 12) that 
is required to be rescaled. Once the data has been written 
on computer disk, a punched card deck of the data can be 
obtained. 

Usage 

CALL CRUNCH (NTAPE, NRUN, KSTOP, IDSET) 

The user is not required to make changes in the subroutine. 
The arguments in the calling list are: 

NTAPE not used 

NRUN not used 

KSTOP code number indicating the last data point 

(usually set to 10,000 and specified on the 
input data cards - see data set example table 
1A) 
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IDSET 


disk number the data will be written on - 




specified by the user through the input 
data cards - see examples 1 arid 2 of text 
Common /STATE/ is the only common in this program. The vari- 
ables used in subroutine CRUNCH from the common statement 
are ND, KSK, KDT, SCALE (12) and YC (200,12) which are defined 
as: 

ND total number of data points 

KSK skipping factor for data points 

KDT increment between data points 

SCALE (12) scaling factor - one for each of the 12 
channels 

YC{200,12) the matrix containing the computed data 
(maximum of 200 points for each of 12 
channels) 

17. PLOTIN$$ 

Description 

The PLOTIN subroutine plots the computed and measured 
data using the on-line printer. This plot is useful for 
visual examination of the computed and measured data. Each 
time the subroutine is called it will produce two plots . As 
an example, on one axis it can plot the roll moment (measured 
and computed) and on the other the pitch moment (measured and 
computed) . 
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The time or angle corresponding to the plotted data point 
is printed on the far right side of the plot. The data 
is scaled in order to produce two plots in 101 carriage 
spaces of printing paper. At the end of the plot, the scaling 
factors required to convert the data to engineering units 
are given. The fortran names of these scaling factors are 
MEAS and .COMP. The largest of these factors for each plot 
must be used to convert the plotted data to engineering 
units (see example 1 of text) 

Usage 

CALL PLOTIN (II, 12, KSKIP) 

The arguments in the calling list of the subroutine 
carry out the following functions: 

XI channel number corresponding to plot number 

1 (set in subroutine IDENTl) 

12 channel number corresponding to plot number 

2 (set in subroutine IDENTl) 

KSKIP skipping factor for data points (set in 

subroutine IDENTl) 

The two common statements in the program are /STATE/ and 
/PLOT/. The variables used in PLOTIN from the common /STATE/ 
are ND, KSK, KDT, YC(200,12), YM(200,12) and from the common 
/PLOT/ is SYMB (4) . 

These variables have the following meaning: 

ND total number of data points per channel 

(max . 200) 


131 


skipping factor for data 

time interval between measured and computed 
data points 

matrix of computed data (maximum of 200 
points and 12 channels) 
matrix of measured data (maximum of 200 
points and 12 channels) 

array containing the symbols to be used for 
the plot. An option in the input data cards 
can suppress the calling of the plotting 
program if only the printed output is desired. 

LIBRARY PROGRAMS 
The following three subroutines are library programs 
that are called by the programs discussed in the text. The 
first two subroutines deal with integrating the equations of 
motion while the third subroutine is used to keep track of 
the computation time. The user may substitute his own integra- 
tion program if the simulation of the model equations requires 
such programs. Likewise the computation time subroutine is 
not essential to the application of the identification programs 
and the user can take this program out of the subroutines 
or substitute a similar program compatible with the users 
computation facility. Mere detailed description of these 
subroutines can be obtained from reference 3. 


KSK 

KDT 

YC (200,12) 
YM (20 0,12) 
SYMB (4) 
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18. AL INTS 


Description 

AL INTS uses double-precision arithmetic internally. The 
purpose of this subroutine is to obtain a numerical solution 
of the system of N (N .GE. 1) ordinary first-order differential 
equations Y' = F(x,Y) 
where 

y 1 , y and F and n-th order vectors and the prime indicates 
differentiation with respect to the independent variable x. 
Usage 

The subroutine has two entries, on for set-up, one to integrate 
over an interval h. 

A. Set-Up Entry 

When this entry is used, the subroutine does all the 
necessary initialization to start integrating a.x = xo. 

It then enters the derivative routine, which is supplied 
by the user, to obtain Y' (xo) and returns control to the 
main program. This entry must be used to restart the 
integration at any- intermediate point x = XI such as 
a point of discontinuity, a point at which the user 
wishes to change the interval size h or the parameter 
K (which is defined below) . In these cases xo is replaced 
by XI. 

The CALL statement, with normal conventions for integer and 
floating-point number designations, is: 
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where 


CALL INTS (T,N,K,EU r P,A,HMAX,HMIN,BETA,DERIV, $NHRN) , 

T is any array of 12N + 3 cells if Adams -Moulton 

option is used or 4N + 3 cells if Runge-Kutta 
option is used 

H is the number of differential equations 

K is a code where 

K = 0 for Adams-Moulton variable step-size 
mode 

K *= 1 for Rouge-Kutta mode 

K - 2 for Adams-Moulton fixed step- size mode 

EU is the upper bound of E (n + 1) for truncatation 

error testing done in the variable step-size mode 
(EU .GT. 0) 

P is used to compute the lower bound of E (n + 1) 

and, if used, should be P .GT. 0; if P - 0 
the routine sets P - 100.0 

A is a constant used to control interval size 

reduction and should be A .GT. 0; if A - o 
the routine sets A - 1.0 

HMAX is the maximum value of h beyond which the 

routine should not increase h (if HMAX = 0 
the routine assumes there is no upper limit 
on h) 
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HMIN is the minimum value of h below which the 

routine should not decrease h (if HMIN - 0 
the routine assumes there is no lower limit 
on h} 

BETA is the number used to increase or decrease 

the interval size and must be 0.0 ,LE. BETA 
.LE. 1.0 (if BETA := 0.0 then the routine sets 
BETA =0.5) 

DERIV is the name of an subroutine (supplied by 

the user) that evaluates the derivatives 
and stores them in T(4 + N) through T(4 + 2N 
- 1) ; the name of this subroutine must also 
appear on an EXTERNAL card. This subroutine 
has no arguments. 

$nnnn is an optional argument which is a statement 

number in the user's program, preceded by $, 
to which control is transferred when an error 
occurs in the derivative subroutine. (See 
ERROR Return below) 

If K = 1 or K = 2 then the quantities EU, P, A, HMAX, HMIN, 
and BETA may be specified arbitrarily. 

The array contains the following information: 

T (2 ) = x, the independent variable 
T{3) = h, the value of the interval size 
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T(4), t(S), . .., T (4+N— 1) contain the N values of the Y vector 
T (4+N) , . . . ,T(4=2N-1) contain the N values of the Y* vector 

which are supplied by the derivative 
subroutine (i.e., DERIV) 

Prior to the Set-Up entry the user must set T(2) = xo, T(3) — h, 
and T(4) through T(4+N-l) to the N values of the initial Y vector 
The array T should appear in common since it is necessarily 
refered to in both the main program and the subroutine that 
evaluates the derivatives. The integration subroutine stores 
N # scaled at 35, in T{1) . 

19. INTM 

Description 

This program is used to integrate one step (i.e., from x(j) 
to x(j+l)). When control is returned to the main program the 
solutions Y will be located in T(4) through T(4+N-l) and 
x(j+l) will be in T(2). The derivatives Y 1 will appear in 
T (4+N) through T(4+2N-1) . 

Usage CALL Statement for this entry is: 

CALL INTM 

No arguments are required for this statement. 

Error Return (optional) 

A labeled COMMON statement COMMON/ERINT/IER should be included 
in the derivative routine. If an error is detected by the user 
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in this subroutine, IER should be set to 2. ALINTS will return 
control to the statement number specified in the calling statement. 
If this error return is executed, a new set-up entry must be made 
before any further integration may' take place. 

The error return is optional and may be left unused if 
all the differential equations are well behaved (i.e., contain 
no singularities, etc.). 

20. SETTIM 

Description 

The subroutine measure time interval's (in milliseconds) 
of up to seven hours. Eight seperate timers may be used per 
task, and timing may be done either in task time (CPU time allotted 
to the task) or real time (elapsed wall-clock time) . 

Usage 

The program is initialize by the statement 
CALL SETTIM (NUMBER, I TYPE) 

where NUMBER, and integer, is the timer (from 0 to 7) I TYPE, 
and integer, is the timer type (zero for CPU time, nonzero for 
real time) 

To measure elapsed time since specified timer was initial- 
ized use the integer function: 

ITIME=INTVAL (NUMBER, I TYPE) 

where ITIME is the elapsed time in milliseconds 
NUMBER is the timer number (from 0 to 7) 

I TYPE is the timer type (must agree with the type specified 
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SETTIM for the timer, i.e., zero for GPU time, nonzero 
for real time) 
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APPENDIX B 


COMPUTER PROGRAM LISTINGS 

This appendix gives a listing in Fortran of the parameter 
identification programs. The three library routines that were 
discussed in appendix A are not listed here since their appli- 
cation will depend on the users parameter identification problem 
and the computational facility available to the user. 


c 




main program 

PfcAU NU1 f NU2, NU,UAU,LAUT ,LAM # MU,LILA1S,LIL61S,LAMX,LAMY 
COMMON/MAIN1/ TU23),AU0,i05,CCl0,lOl,fc(10),B»/ao) , BIX , BI Y , BIZ, 

1 8R AD, BRAD0,8ChQRD,BL 0SS, SwEEP, PERRPM,BH INGE, 

2 OMEG A, BLOCK, DEL T A3, BETA* , TWIST, PHECQN, ALPHA, 

3 ALPHAS, LILA1S,AIRV,AIHRM0,GYIP,GYID,GPSIU, GYROL, 

4 GYSPEU, C2,COLECT,NUl , NU2, TIMEF, I COUNT, PS I, 

5 IblOQ,JCDUNT 

COrfMON/QERlVi/SPRtC, AIRQC, AlR0Cl,82,B3,b4,B!»,S6,B7,B<i f A2S, A*7, A29, 

1 A47,A49,A61,A65,A66,A6i,A8i,AtJ7,A88,Al0l,A103, 

2 A 109, A101O, GYNE*3,GYEUl t FKZfcT A , FCDAMP, CO, 

3 CSDAMP,MU, LAM, PI 
COMMON/OUT1/ SCALE C 19) 

COMMON/SENT JV/H I G61S,CT, I HINGE 
COMMDN/OUTNEW/YMR(200, 4) , 1ROT , INE* , I S I ML 
COMMON/ BIAS/ RMBIAS,PMBlAS,RABIAS,PAi3lAS 
COMMON/INOUT1/PHI,RPHI, THET,HTMET, IRE.C 
COMMON/INFUOw/PSIOF, LAMX,LAMY, If-LOrt 
CDMMQN/REVSF/ R2 , R3, R4 , HS , R6 , R7 , RB 

READ PROGRAM CONTROL LOGIC 

10 Rb AD ( 5, 1 1 0 3 lFLOQ,lHlNGt,IROT,lNEw,I5IML,lFLOw,lREC 

FOR IFLDQs 0 FIXED S/P MOMENT INPUTS AS READ IN By NU1 AND NUB 
FOR IFLOO=+l FORCED S/P ANGLES AND MOMENT S--LOCKED GYRO MODE 
FOR lFLDQs-1 FORCED S/P MOMENTS ONLY 

IREC=0 LOCKED STEADY-STATE GYRO CASE--U5ED WITH IFLOG=l 
IREC-1 LOCKED TRANSIENT GYRO CASE USED TOGETHER WITH IFlQQsI 
IHINGfcB 0 NO HINGE OFFSET IN SIMULATION 
' IHINGEs 1 HINGE OFFSET INCLUDED IN SIMULATION 

IROT- 0 SIMULATION AND IDENTIFICATION IN ROTATING COORDINATES 

IROT* 1 SIMULATION AND IDENTIFICATION IN STATIONARY COORDINATES 

INEW= 0 27 PARAMETER NEwP SUBROUTINE 

ISIML-0 PROGRAM RUN In. IDENTIFICATION MGDE 

ISIMLsi PROGRAM RUN In SIMULATION MODE 

INEW= 1 23 PARAMETER N£wP SUBROUTINE 

lNEws-1 USED TOGETHER WITH IFLOQsl FORCED S/P ANGLES wITH S/P 
MOMENTS read from INPUT data cards 
iflqw«i INFLOW value head from input data cards steady TERM AND 
FIRST HARMONIC 

IFLOwsO INFLOW VALUE CALCULATED IN PH OGHAM- -STEADY TERM ONLY 
READ BLADE CONSTANTS 

RE AD C5, 100) BIX, BI Y, 81 Z, BRAD, BCHORD,BlOSS 

READ C5, 1003 SwfcEP , RPM, BHINGE , BLOCK , DEL T A3 , BET AK , P l 
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RE AD (5, 1 00 ) T WIST, PRECON » CT, A JR V,AIWRH0, ALPHA, ALPHAS 
READ (5, 105) LILAlS,LlLBl{i,BIGAiS,BIGBlS,CD,LAM,LAMX,LAMY 
C 

C INITIAL CONDITIONS ON BLADE 

RE AD (5, 1001 BETAl,RBETAt,BETA2,RB£TA2,BETA3rRBETA3,CGLECT 

READ GYRO CONSTANTS 

READ (5, 1001 GYIP,GY1D,GPSIQ,GYR0L,GYRPM,C2 
WE AD (3,1001 FKZETa,FCDAMP,CSDaMP,P510F 
C 

c initial conditions on gyrq 

READ (5,100) DELT1,RDELT1,DELT2,RDELT2,NU1,NU2 

RE AD (5, 105) PHI,RPHI,THET,RTHET,RMBIAS,PMBIAS,RABIAS,PABIAS 

c 

C INITIAL CONDITIONS FOR INTEGRATION ROUTINE 

READ (5, 10 0) DELPSI,REVS,HEVO,RF-VF,TRUnC 
C 

C SCALE FACTORS FOR PLOTTING PROGRAM 

READ(5, 100) (SCALE (I) , 1=1 , H) 

100 FORMAT ( 7tl 0 , 5) 

105 FORMAT (BE 1 0 * 5) 

110 FuRMAT (712) 

C 

c write input quantities 

WRITE (6, 130) 

130 FORMAT (!Hl,3faX,58HTwO DEGREE OF FREEDOM HELICOPTER BLADE AND GYRO 
lSIMULATlON//) 

C 

WRITE (6, 132) 

132 FORMAT (55X r 2lHPKnGRAM CONTROL LOGIC) 

WRITE (8, 13«) iFLOOf IHINGE, iROTr INhW,ISIML,IFLOw,IREC 
13« F0RMAT(«5X, 7H IFLOG=I2, 3X, 8H IH INGE= 1 2 , 3X , 6h I«OT= 1 2 , 3X , 6H INEWsI2 
1,7H ISIML=I2,7H IFL0Wsi2,bH IREC=I2//) 

C 

WHITE(6,H0) 

HO FORMAT C5BX, 1-faHBLADE P AR AMfc JESS ) 

WRITEC6,150) BIX, BIY, BIZ, BRAD, BCHORD , BLOSS , S«EEP , RRM, 

18HINGE, BLOCK , DELTA3, BET AK,P1,TWIST,PH£CQN,CT,AIRV,AIRRHQ, 

2 ALPHA, ALPHAS,ULAIS,LILB1S,BIGA1S,8IGB1S,CD,LAM,laMX,LAmY 
150 FORMAT (29X,5H BIX=Fb,2, Sh Bl Y = F fa * 2 , 5H 6lZ=Ffa»2, 8 h RADIUS=F4.1, 
l 7H CHQRD=Fii,2 f 12H BLADE L0SS=F3 , 27/ 19X , 

27H SWEEP = F6.2, 5H RPMsF6,i, lfaH HINGE POSIT I0n=F4 * 2 , 

3 6H LOCKsFfc.S, 8m DELT A3sF 5 * 2 , 8H K BET A = E 12 , 6HH Rl = 

i|Ffa,2//2UX, 7H T wlST-F fa, 2 , 9 h PRECON£=F6 , 3 , 3H CT=F?H, 

5HH AIR VEL0CITY = F7.a, 13H AIR DENS IT YsF 7 . fa, 7* alPHA=Fb.3, 


bBH ALPHASsFb , 3/ / bX,12H LITTLE A15sF6,3, 12H LITTLE fcSlS=F6 t 3, 

79h BIG AtSsPb,3, 9H BIG BIS=F6 t 3,UH CD»Fb.3,bH LAM=F8,6, 

BbH UAWXSF8.6, bh LAM YsF8 , b// ) 

WRITE (6, ISO) 

i fcO FORMAT ("S4X, 24HBLADE INITIAU CONDITIONS) 

WRITE (b, 170) bETAl,R6ETAl ? 8ETA2,RBETA2,hsET43,RBETA3,C0LECT 

170 F0RMAT(HX f 7H BET A 1 =F 7 » 3 , 12H BETA! RATE=F7,2, 7 h BETA2=F7,3, 

112H BETA2 RATE = F7,2, 7H BET A3=F7 . 3 , 12H BET A3 R A T E = F 7,2/ 

212H COLLECTlVE=Fb,l//) 

■ WRITER, 180) 

160 F0RMAT(b8X, 15MGYR0 PARAMETERS) 

WRITE (6, 190) GY IP, GYID,GPSIU,GYRQL,GYRPM , C2 , F K ZE T A , F CD AMP , CSD AMP , 
1P5I0F 

190 F0RMAT(lbX,4H IPsFb,3, 4M 1D=F6,3, 12H GYRO ANGLE=Fb,l, 

113H GYRO DAMP LkF 6,2, lOh GYRO RPMsF7.1, 2 bH MECHANICAL ADVANTAGE 
2 C2=Fb, 3//10X, 27HFEATHERING RESTRAINT KZE T AsF fa, 2 , 2bH FEATHERING 
3DAMPING CZETA = Fb t 2,27H SWASHPLATE DAMPING C5Q AMPsp 6,2, 7H PSlOF=Fb 
3,2//) 

wRITfctb, 200) 

200 FORMAT C53X#26hINITIAL CONDITIONS ON GYRO) 

wHITECb, 210) DELT1,RDELU,DELT2 ,RDElT2,nu1,nu2 

210 FORMAT C22X,8H DELTA1=F7,3, 13H DELT A 1 RAie=F6,2, BH DECT A2=F 7,3, 

1 1 3H DEUTA2 R ATEsFB , 2 » bH NUl=Fb,2, 5H NU2=Fb,2//) 

WRITE [fa, 215) PHl,RPhi f THEY, RTHET, HMB IAS, PMBi AS , K AH I AS , P AB I AS 

21b FORMATC 2x,bH PHl=F7.3,bH RPHI=F8. 2, bn THET = F 7 , 3, 7H RTHET = F8,2, 

1 8H RMB I AS-F 8,2, 8H PMBIAS = F8,2, BH RABIAS=F6,3, BH P AB I ASsF b , 3// ) 

wRITE(b,220) 

220 FORMAT (32X,b6HlNlTIAL CONDITIONS FOR STARTING AND STUPPINg The INJ 
1EGRATI0N ROUTINE) 

WRITE (6, 230) DELPSI, REVS, REVO, REVF, T RUNG 

230 FORMAT C32X , 8H DELPSI=F5,2, 7h REVSsF5,2, 7H REV0=F5.2, 

1 7H KEVP=FS,2, 7H THUNC=E10,4//) 

WR I T6 ( b , 24 0 ) 

240 FORMAT (49x>34HSCAl,E FACTORS FOR PLOTTING PROGRAM) 

WRITEC6,2U1) 

241 FORMATt20X,S7rt.SCALECl) SCALE C2) SCALE(3) SCALE(R) 

1 SC ALE Cb ) SCALE fb) SCALE (7 ) ) 

WRITE (b, 247 ) [SCALE t I ) , 1= 1, 7 ) 

WRITE (6, 24b) 

24b FORMAT C20X,87 hSCALE[B) SC ALE 1 9 ) SCALEtlO) SCALE(ll) 

1SCALEC12) SCALE C l 3 ) SCALE (14)) 

wRITE(b,247) [SC ALE ( I) , 1 = 6 , 1 U ) 


o n 


2<t7 F0RMATU9X,7(lPE10.3f 3X)V) 


CONVERT 'ALL ANGLES TO RADIANS 
RADXAN=57, 29578 
SwE-EPsSWEER/RADIAN 
DELTA35QELT A3/RADI AN 
TwISTsTwXST/RAOIAN 
PRECOnsPRECON/RAOIAN 
ALRHAsALPHA/RADIAN 
AlPHAS= ALPHAS /RADIAN 
BETAIsBETAI/RADIAN 
RBET A 1-RBEt A 1 /RADI AN 
BfcTA2*B'fcTA2/RADIAN 
RBETA2SRBETA2/RADIAN 
BETA3=BETA3./RADIAN 
RBETA3=RBETA3 /RADIan 
COLECTCCOLECT/RADIAN 

gpsio=gpsio/radian 

LILAlS=LlLAiS/WAOIAN 
LILBISsLiLBiS/RADI an 

9IGA15SBIGA '.S/RADIAn 
BIGB 1S=BIGB1S/RADIAN 
PELT l a PELTl /R adian 
HDELTURDELT 1/RA0IAN 
0ELT2=DELT2/«ADIAN 
RDELT2sRDtLT2/RADIAN 
DELPS I =DELPS I/RADI An 
phi=phi/raoian 
RPHI=»PhI/RAOIAN 
THETsTHET/RADIAN 
RTHETsRTHET/RADIAN 
RABIAS=RABIAS/RADIAN 
PABIASsPABIAS/RAOIAN 

c 

OmEGAsS , 283 l85*RPM/bQ » 0 
C CONVERT AIR VELOCITY TO FT/SEC 

AIRV*i,6878l*AIRV 

mu=aihv*cos c alpha )/ comega*uh ad) 

C CONVERT STEP SIZE IN DEG » AND NUMBER OF REV, OF ThE RUTUR TQ SEL * 

C FOR USE IN INTEGRATION ROUTINE 

deltatsdelpsi/omega 

T I M fc S ~ REVS*6 t 283185/OMEGA 
TINE0= REVQ*b,2B3185/OMEGA 
TIMEF-REVF*fa,283I85/OMEG4 
c SFT BUAOE RADIUS SUB ZERO TO HINGE OFFSET 


non 


& 

fi: 

!: 8RAD0=BHINGE 

f c 

C SET GYSRED EQUAL TO RATIO OF ROTOR SPEED TO GYRO SPEED 

£■ GYSFED=GYRPM/RPM 


CALCULATE INFLOW 
LAUTSLAHBDA/MU 
IF C MU ,EQ* 0.0) GO TO 265 

'i' C IF THE INFLOW IS SPECIFIED FROM INPUT DATA CARDS IFLOW MUST BE 1 

| ' ’ IFClFLOrt ,E(J, 1) GO TO 260 

IT ALFCSALPHAS-8IGB1S 

!ti LAUTSALFC -,5 *CT/mu**2 ' 

f 250 NU = 0.5*CT/CMU*S«RTU + LAUT**2)) 

I LAUsALFC-NU/MU 

l ERfi=ABSCi,0^LAU/LAUT3 

IF (ERR ,LT, ,001) GO TO 260 
i LAUfaLAU 

?• GO TO 250 

l 260 LAMxlau*MU 

I ^ GO TO 266 

| I: 265 LAMSO.O 

- c 

| C WRITE CALCULATED PARAMETERS 

I 260 WRITE (6,270) 

I 270 FORMAT ClH0,it7X,36HPARAMETERS CALULATEO FROM INPUT DATA) 

t. WRITE (6,200 ) OMEGA, GYSPED, MU, LAM 

| 280 FORMAT (42X* 7H OMEGA=F7,3, 0 H GYSPEO=F6,2, 4H MgsF6,3, 

I 18H LAMBDA=F8,fe/) 

l WRITE (-6, 285 ) DELTAT, TIMES, TIMED, T1MEF 

205 FORMAT C3iX,0H OELTAT = E 1 0 , a , 7H TIMES=E10 , -4 , 7H TIMEQ=E10.4, 
b 1 7H TIMEFsElO,^) 

| C 

| C INITIALIZE THE A AND BU MATRICES 

Si. DO 300 1*1,10 

DO 300 J=l,10 
300 A(I,J)=0,0 
DO 340 I s ! > 10 
I: 340 8UCI) = 0,0 

: C 

l c SET INITIAL CONDITIONS ON T-BLQCK 

t T ( 1 ) * i 0 , 

^ T(2)*T1MES 

T(3)sDELTAT 

| TC4)sD£LTi 



Bftvnb Tiom m 
>MW& 1 *»» 




T (S)-RDELT 1 
T C6)aD£LT2 
T(7)sRDELT2 
T ( S ) -BETA 1 
t ( 9) *RBET A J, 

T ( 1 0 ) sBfeT A2 
TC1D =RBETA2 
T(12)=B£TA3 
T ( 1 3 J eRBET A3 
ICOUNTcl 

C 

C CALCULATE CONSTANTS FOR USE IN DERIVATIVE ROUTINE 

0MEGA2bQM£GA**2 
C22sC2**2 

GYEOlsGYlD+1.5*BIX*C22 
BIXYZGb£BIX+B3Y-BI2)/GYEQ1 
BIZYG= (BIZ-BIY)/GYEQI 
BIZXGs (BIZ-BIXJ/GYEQI 
BIXYZB=(BIX+BIY-B1ZI/BIY 
BIZB SBIZ/BIY 

GYNEW1s(GYIP*GYSPED-GYID3*OHEGA2/GYEOI 

GYNEW2b£GYIP*GYSPED-2,0*GYID3*0MEGa/GYEQI 

GYf'JEW3»GYID*0MEGA2/GYEQl 

GYNEW4=1 t S*C22*BlZYG*QMEGA2 

GYNEW5s£l t 5*C22*FKZETA)/GYEdI 

GYNEW6S(1 ,5*C22*FCD4MP)/GYEfil 

GYNEW7sC22*SWEEP*BIXYZG*0MEGA 

GYNEWB=C2*SwEEP*BIZYG*0MEGA2 

GYNEW9=C2*BIXVZG*0MEGA 

S^ASHDxCSDAMP/GYEQI 

GYROO=+2,0*GYID*GYROL*OMEGA/GYEQI 

GYCQUP*C2*SwEEP*BETAK/GYEai 

BC0UPl=SwfcEP*0MEGA2*C2 

8CDUP2=HIXYZB*0MEGA*C2 

BC0UP3S9ETAK/BIY 

8C0UP4»BI2B*QMEGA2 

BCDUP5sB1XY2B*SWEEP*0MEGA 

BPREC5BCOUP3*PRtCON 

HCQN$T=BIY*SwEEP*C2/GYEQI 

IFCIHINGE ,EQ, 0) GO TO 360 

HINGOF = + l i 5*8RADO*Of<EGA2/CBRAD-BRADa) 

GO TO 370 
360 HING0F=Q,0 
370 A( 1,2) = 1.0 

A (2, U=-GYNEW1-GYNEW0^GYNEW5 
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A(2,2)s-GYR0D-1.5*GYNEW7«GYNEW6-5WASHD 

A(2, 3J=UMEGA*SWASHQ 

A(2,4)s-GYNEw2 

c 

A25= GYCQUP+2, 0*GYNEH8+HCQNST*HI NGGr 

c 

A(2,6)=-GYNtW9 

C 

A27=«,5*GYC0UP«GYNEw8-,5*HCQNST*HING0F 

C 

A(2r8)=+.5*GYNEW9 

C 

A29sp,5*GYCOUP-GYNEvJ8**,b*MCONST*HXNGOF 

C 

A ( 2 r iQ}=+,5>*£YNfcw9 

A(3,4) =+1,0 

A(4, i)=-OMtGA*S«ASH[> 

A(4,2)= GYNEW2 

A (4, 3)=ifiYNfcWl*GYNErt4-GYNEWb 
A(<t»4)=-GYR0D-l,S*GYMEW7-GYNEW6-5l«ASHD 
C 

A«7a+,8667*GYCOUP+1,732*GYNEW8+.8667*HCON5T*HINGOF 

C 

AC«,«J=- i 86i , ,7*JYtiEa9 

C 

AU9a-,66fa7*GYCt)UP-l,732 + GYNEW6-.86b7*HC0NST*HlNG0F 
C 

A(4,10)s+,8667*GYNE*9 
A { 5 i 6 ) a 1,0 
C 

A61=-HC0UPI 

C 

A 1 6, 2 J S + 8C0UP2 
AC6 f «>=+0,0 
C 

A65=*BCgUP3-aCQUP4«HlNGQF 

A66S-6C0UP5 

C 

A(bf7.) = + 0,Q 
AC6,8)=+0,0 
AC6,9)s+0,0 
AC6,l07=+0,0 
A£7,B} = 1,0 
C 

A8t=+ t 5*8C0uPl 
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C 

A{B,2)=-,5*BCQUP2 

C 

A83*-,8<>67*BC0UP1 

C 

A£S,4)s+ f S&67*BC0UP2 
A £8, 5)5 + 0, 0 
A C8 P fe)=+0, 0 
C 

A875-6C0UP3-BC0UP4-rilNGGF 

A8Bs-eC0UP5 

C 

A £8 , 9 ) s + O , 0 
A(B,lQ)s+0, 0 
A£9, 103S+1.0 
C 

A1015+,5*6COUP1 

c 

ACiO»2)=-,5*BCOUP2 

C 

A103sf+.B667*&CUUP1 

C 

A(10#4)5-,8667*BCaUP£ 

A £ 10 r 5) = + 0 • 0 
AC10, 6)5+0, 0 
A C 1 0 , 715 + 0,0 
A(10, 8)5+0, 0 
C 

A109 = -BCOUP3»-BCOUP4-HINGQF 
A10105-8CDUR5 
C 

BL0CK35£BCH0RD*CD*AIRPHD*6RAD+*4) /BI* 

A1ROC15BLOCK3*BIX*QMEGA2/2,Q 

AXROC 58LOCK*OMtGA2/2,.0 

B.250LOSS**2/2,O"0RADO**2/(2,AtiHAD**2) 

B3=BLQSS**3/3,0-BRADO**3/£3,*BRAD**3) 

84=BLaSS**4/4,0-BRAD0**4/ (4,*BRAD*+4) 

B5=8LQSS**5/5,C-BRADO**5/(5.*BRAO**5) 

B6sO,£5QO-BrADO**U/£4,0*9HAD**4) 

B7=0,3333-BRAOO**3/ £3, Q*BR.AD**3) 

B8=0,5000-BRADO**2/ £2, 0*BRAD**2) 

c 

C CAUCUUATE B»S FOR REVERSE FLO* REGION (DEFINED AS R'S) 

R2 s(BL0SS**2«-MU**2)/2, 

R% =(BLOSS**3-MU**3)/3, 
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C 


Hit s(BLQSS**4-MU**4)/4, 

R5 =<BLQSS**5-MU**5)/5, 
R6 =t t,-MU**4)/4.0 
«7 =Cl,-MU**3)/3 ( 0 

«8 =Cl„-MU**2)/2,0 

PSIsOME(iA*T(2) 

400 GK=GK 

CAUL IDENTi 
500 GK=GK 
STOP 
E in D 



SUBROUTINE NE*P 

REAL NU#LAU,LAUTfLAM,MU, LILA1S,LILB1 S,LAMX,LAmy 


CQMMQN/PRM/ IDUM1 C 74 ) , DUM 1 C 36 ) , P ( 36) , DUM2 C 8690 8 ) 
C0MMQN/CQM1/ LO , Nl , DUM4RY C 1 20 ) 


1 

2 

3 

4 

5 

1 

2 

3 


COMMQN/MAINl/ T C 123 ) , A ( 10, 10) *C C 10* 10 ) ,E ( 10) , »U( 10) , BIX,BI Y,BIZ, 
BRAD, BH ADO, 8CH0RD , 8L0SS , SWEEP, PERRPM , BHINGE , 

OMEG A, BLOCK, BELT A3, BETAK* TWIST, PRECON, ALPHA, 

ALPHAS, LILA IS, A IR V , AIRRHO , GY IP, GYID , GPS 10 , G YRQL, 
GY5PED,C2»CQLECT , NU 1 , NU2 , T IMEF ,ICGUNT,P5I, 

IFLGQ , JCOUNT 

COMMON/OERIV1/BPREC, AIROC, AIR0C1 ,B2,Bi,B4,Bb,Bb,B7,B8, A25,A27, A29 
A47,A49,AM,AB5,A66,A81,Aa3,A87,Aa8,A10i,Al03, 

A l 09, A101Q ,GYNEw3 f GYEQl , F kZET A , FCD AMP , CD , 
CSDAMP,mu,LAM,P1 
C0MM0N/SENTIV/BIGB1S,CT,IHINGE 
COMHQN/OUTNEW/YMR(200,4) , IROT, INEw, ISIML 
COMMON/ INFLOW/PS I0F,LAMX,LAMY,IFL0^ 

COMMON/REVSF/ R2, R 3 , R4 , R5 , Rb , R7 , R8 


f 


IFUSIML ,eq, u return 

IFCNi.EQ.O) RETURN 

GO TO (1, 2, 3, 4, 5, 6, 7, 6,9, 10, 11,1 2, 13, 14, 15, 16, 17, 16, 19, 20, 21), Nl 
21 TwlST = P(2n/57, 29576 
20 GYID=P(20) 

19 GYIPSRU9) 

IB GYSPE0=P(1B) 

17 BIX=PC17) 

16 FCDAMPsR ( 16) 

15 CSDAMP=PC15) 

14 MUSPC14) 

13 C0=PU3) 

12 PREC0NsPCJ.2)/57f 29578 
11 BRADO-P (11) 

10 LAMYSRCIO) 

9 LAMX=PC9) 

6 LAM=P{8) 

7 C2=P C 7 ) 

6 SWEEPsP(6)/57,2957B 
5 8L0CK=PC5) 

4 BETAKSRC4) 

3 C0LECT=P(3)/57, 29578 
2 BLOSSsP (2) 

1 BIYsPCl) 


r> o o 


0I2SBIY+BIX 

A IRVsMU*OMEGA*BK AD/COS (ALPHA) 

IF (MU , EG, 0,0) GO TO 2b5 
GO TO 2b8 
265 LAHsO.O 
26B QMEGA2*0MfcGA**2 


tn 

o 


C 


c 


IF INERTIA, BETAK AND LOCK NUMBER ARE Tu BE CALCULATED AS 
FUNCTIONS OF HINGE POSITON INEw=l 
IFCINEW ,EQ, 1) GO TO 270 
GO TO 290 

270 BIZsBlV+0,4 

BETAKsBI Y*Dm£GA2*CP 1**2" 1.0-1, 5 *BRAD(V(BHAD-BRADQ) ) 

BLOCK® (BCHORD*AIRRMO*b, 2831 B*BR AD**4 ) /BIY 
WRITE (6, 260) BRADQ, B I Y. BIZ, BETAK, BLOCK 
280 FORMAT (2X, 1 BRADO= ' El 2 . 6 , ' BlY='Fb.2,» BIZ=<F6,2,« BtTAK=HEl2,b, 
1’ BL0CKs»F4,2) 


290 C22sC2**2 

GYEQIbGyID + U5*BIX*C22 

BIXYZG=(8IX+BIY-BIZ)/GYEQI 
BIZYGs CBIZ-BIY)/GYtai 
BIZXG= (BIZ-BIXJ/GYEQI 
BIXYZBs(BIX+BIY-9IZ)/BIY 
BIZB =BIZ/8IY 

GYNEWla(GYlP*GYSPED-GYlD)*0MEGA2/GYEQI 

GYNEW2=(GYiP*GYSP£D-2,0*GYlD)*0MEGA/GYEGI 

GYNEW3=GYID*0MEGA2/GYEQI 

GYNEwasi ,5*C22*BIZYG*0McGA2 

GYNEW5sa t 5*C22*FKZETA)/GYE0l 

GYNEw6s(l f 5*C22*FCDAMP)/'GYEQl 

GYNEW7«C22*SWEEP*BIXYZG*0MEGA 

GYNEh8=C2*SwEEP*BIZYG*0mEGA2 

GYNEW9sC2*BIXYZG*0MEGA 

swashd.=csdamp/gyeqi 

GYR0D= + 2,G*GYID*GYROL*0HEGA/GyEGjI 

GYCOUPsC2*SwEEP*BETAK/GYEGI 

BC0UP1=SWEEP*0MEGA2*C2 

BC0UP2=BIXYZB*0MEGA*C2 

BC0UP3SBETAK/BIY 

BC0UP4sBIZB*0M£GA2 

BC0UP5»8IXYZB*SWEEP*0MEGA 



1ST 


BPR£C*8C0UP3*PK£C0N 
HCONST»0IY*SWEEP*C2/GYEGH 
IFdKINGE ,£Q, 0) GO TO 360 
H1NG0F=+1 ,8*BRADQ*04EGA2/(BRAD«BRAD0) 

GO TO 370 
360 HINGOFsO.O 
370 A ( 1 r 2 ) * 1,0 

A (2, n s -GYN£rtl-GYNEt*J4-GYNtW5 
AC2r2)=«GYRDD-l ,5*GYNEW7-GYNEW6-SwASHD 
A(2,3)=0MEGA*S*ASHD 
A(2,4J=«GYNEw2 
C 

A2=>= GYCQllP + 2, Q*GYNfcW8+KCQNST*HING0F 

c 

A(2,6)=«GYNEW9 

C 

A27s-,5*GYC0UP-GYNEW8- e 5*HC0NST*HXNG0F 

C 

A(2* B)=+.5*GYNfcw9 
C 

A29=*,5*GYC0UP-GYNtrt8* a B*rtCQNST*HINGQF 

C 

A(2,lQ)s+,5*GYNt*9 • 

A(3,«) =+1,0 

AC«# l)a-OMtGA+SwASriD 

AC4,2)= GYNEW2 

A (4, 3)*«(iYN[:«l-GYNEW4-GYNEWb 

A(4, 4j=~GYRQD«l t 5*GYNEW7»GYNEw6«SWA5Hl) 

C 

A47 = + ,8667*GYCQUP+l t 732*GYNtw8+,86b7*HC0NST*HlNG0f : 
C 

AC4,8)=*'.8667 + GYNtW9 
C 

A<l9 = »,8667*GYCOUP-l,732*GYfc£we-,866 7*HCaN8T*HlRG0F 
C 

A C«, 10)=+,8fa67*GYNE^9 
A (5 j 6 ) = 1,0 
C 

A6 1 b-BCOUP 1 

c 

A ( 6 , 2 ) S+8C0UP2 
AC6,<U = + 0,Q 
C 

A65 = -BC0UP3«"BC0UP4-hI^G0F 
Ab6=*'BCQUP5 


At6,7)s+0 # 0 
A (b, 8)=+0, 0 
A(fe,9)=+0,0 
A (b * 1 CO 5 + 0 ■ 0 
A (7 r 8 } = 1,0 

A8ls+,b*BC0UPl 

A C8#2) = -«b*BC0UPa 

A83 = -,8667*BCC)UP1 

AC8,«)=+,86b7*BC0UP2 

A(8,5)s+0,0 

A(8, b)s+0, 0 

A87=-BCOUP3-BCOUPa-MlN[iOF 

ABBs-bCOUPb 

A{8# 9)s+0, 0 
ACB, lODs+0,0 
A(9, 10)=+i.0 

AiQl=+,b*bCOUPl 

AC10,2}s- ( b*8COUP2 

A103=+»B667*BCOUP1 

AUOf «) = -,8667*&C(JUP2 
AC10rb}=+0,0 
A(10,b)=+0,0 
A ( i 0 * 7 ) =+Q , 0 
Atl0f8)s+0*0 



A109 = -BCOUP3**8EUUP«-K1NGOF 
A1010=-BCqUP5 

BL0CK3={BCH0«D*CD*AlRWHU*BPAD**a)/BIX 

AIWOC1=BLOCK3*BIX*OmEGA2/2,0 

AlROCaftLOC.K*Ql66-Aa/d,0 

A1RUC2S 2,25*AIH0C*KUAMB* tPl**2-l,)/(BUQCK*BLDSS**25 
B2=BLOSS**2/H.O-BRAOQ**2/C2,*BPAD**2) 
83=6LQSS**3/3,0-BRADO**3/ (3, *BRAD**3) 

BA=BLO&S**«/A, 0-BRAJU**U/Ca,*tiRAD**«) 


1S3 


a5eBLOSS**S/5,0-BRADQ**5/(5,*BRAD**5) 

BfesQ,£500-BRADO**4/(4 # 0*BRAD**4) 

Brso.i^-BRADo^/ts.OABRAD^S) 

.08*0 , 5000'-BRADD**2/ (2 , 0*BRAD**2) 

C 

C CALCULATE 0«S FOR REVERSE FLOW REGION CDEFINED AS RlSj 


R£ 

=CBL0SS**2-«U**£J/2, 

R3 

*{aL0$S**3-MU**3)/3, 

R4 

=C0LQSS**4-MU**4)/4, 

R5 

*C8L0SS**b' B NU**5J/5 i 

R6 


R7 

sCi,-MU**3)/3,0 

R8 

s(l , »MU**2}/2 t 0 

500 QK3QK 


return 

END 



SUBROUTINE DERI V 

REAL MU,NU1,NU2,LAM,LAMX,LAMY 

DIMENSION AIROl ( 3) , AIR02 (33 , AI R03 (33 , Al RQ4 (3 3 , A 1RQ5 ( 3 3 , A I R06 ( 3 3 » 

1 . ASC103 r AIR07(i3 r AIR08(3J 

C 

COMMON/S TATE/ ND , NS , KSK , KDT , NSTF , 1ST AT , I NIT C 123 , SC ALE (12 3 , 

1 XINIT(24J, YC(200, 12),YM(2Q0, 12),Yw(240Q) 

C 

CQMMQn/MAINI/ TC 123), At 10, 10),C(10, 1 0 J , fc < 10 } , 6 U (1 0 ) , BIX , BIY , BIZ, 

1 BRAD, BR ADO, BCHOHD, BLOSS , SWEEP , PERRPM , BHINGE , 

2 OMEGA, BLOCK, DELTAi, BET AK, TWIST, BRECON, ALPHA, 

3 4 - ALPHAS, LILAIS, AIRV, AIRRHO,GYIP,GYID,GPSIO,GYROL, 

4 4 GYSPED,C2,C0LLCT,NU1,NU2„TIMEF,ICQUNT,PSI, 

5 IFLOQ, JCOUNT 

COMMON/DERIVI/BPREC, AIROC,AIROCl ,B2,B3,B4,B5,06,B7,B», A25, A27, A29, 

1 A47,A49,Abi,Ab5,Afrb, A81, A83 , A67 , A8B , A l Q 1 , A 1 03 , 

2 A109, Al 010 ,(JYNEw 3 ,GYEai,FK 2 ETA,FCDAMP,CD, 

3 CS0AMP,MU,LAM,P1 
CQMMQN/UUTNEW/YMR(20 0,U) ,IROT, I NEW, 1GYRO 
COMKON/INPLOW/PSIOF,LAMX,LAMY, IE low 

^ COMMQn/REVSF/ R2,K3,R4,R5,Rb,R7,R8 

trl r 

-p*. c 

PSI=OMEGA*T (23 
C 

C TEST IF FORCED S/P MOMENTS FROM MEASURED DATA ONLY OR FIXED S/p 
C MOMENTS UR FORCED S/P ANGLES AND MOMENTS 
IF(IFLQU) 10,30,25 
10 NU1=YM(IC0UNT,73*SC»LEC7) 

NU2=YM(IC0UNT,83*SCALE(83 
GO TO 30 

25 IF ( 1 N E N ,EQ. -ID GO TO 27 
NUlaYMCICOUNT,7)^SCALfc(/3 
NU2=YM(ICOUNT,63*SCAL£(8D 
27 T(«D s YMRCICOUNT,13 
T(63=YMR(ICOUNT,HD 
TC5)=YMR(IC0UNT,33 
T(73 sYMR(ICOUNT,43 
C 

C CALCULATE TIME VARYING TERMS FOR A AND BU MATRIX 

30 NOLO = 3 

BUTOBL = 2. *3. 141592/NBLD 
C 

DO 40 1=1,3 

ARG = PSI + 8LTOBL* FLOAT ( 1- 1 3 
CS * COS(ARb) 
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CHECK FOR REVERSE FLU* REGION BETWEEN 225 AND 315 DEGREES 
IF (5N f LT «-G,7) GO TO 30 

AIROICI) - C + MU*03*CSN+5HEEP*CS) J/QMEGA 

AIR02(I)aB4 + MU*C2»*B3* CSN+5wEEP*CS) + MU*B2*SN* (5N + 2 , *SwEEP*CS ) ) 
AIRU3£I)=5wEEP*Bit + Mu* t'Bi*(C5 + S«EEH*SN) + MU*B2*C5* C SN+SwEEP* CS J ) 
AIR04CIJ-B5 + «U* CH, *0^* CSN+S*EEP*CS ) + MU*03*$N* CSN+2 . *SwEEP*CS 3 } 
A1R05(I) - B3 + MU*B2* C SN+Sw£EP*CS ) 

AIROfaCUsBE + MU*(2 t +B7*(SN+5wEEP*CS) + MU*H0*SN* ( SN + 2 * *Sw£EP*CS ) ; 

TERMS FOR NONUNIFORM INFLOW ARE CALCULATED BY A1R07 AND AIRQ8 
A1R07 CI)= B« + CS+MU*B3* CCS*SN+SwEEP*CS*CS) 

AIR08 [I)= 0«*SN + MU*B3* (SN*Stv + SWEEP*CS*SN) 

GO TO UQ 

AIROICI) a C 84 + Mg*R3* CSN+SwEEP*CS) ) /QMEGA 

A1RQ2CD-R4 + MU*C2,*83*CSN+SwEEP*CS) + MU*R2*SN* (SN+2 , *S«EEP*CS ) ) 
AIRQ3 (I)sSWEEP*W4 4 Mg* CR3*CCS+SWEEP*SN) + MU*R2*CS* ( SN+SWEEP*CS ) ) 
AIHQ4 ( 1 J -R5 4 MU* £2^*84* (SNfSwEEP-*CS) + Mu*K3*SN* CSN42 , *SwEEP*CS )} 
AIR05CI) = W3 ♦ MU*H2* CSN+SWEEP*CS) 

AIR06(I)sR6 + MU*C2.*H7* C5N+SwEEP*rCS) 4 md*RB*5N*(SN42.*SwEEP*CS) ) 

TERMS FOR NQNUNIFORM INFLOW ARE CALCULATED BY AIR07 AND AIR08 
A IRQ 7 CD 5 R4*CS + MU*R3* CCS *SN + S WEEP *CS*GS) 

AIR08CI)= R4*SN+MU*R3*(SN*SN+SWEEP*CS*SN} 

CONTINUE 

DEFINE ELEMENTS OF A-MATRIX 

TNDLT a TANCDELTA3) 

DUMMY s AIRQC1*C2/GYEUI 
A C 2 # 5) = A2S4DUMMY*AIR06C 1 ) 

A£2,7)=A27- t 50*DUMMy*AIR0fc>Ca) 

AC2r 9)=A29-,50*DUMMY*AIRQ6C3) 

A£4, 7)=A47+,8867*DUMMY*AIR06C2) 

AC4,R)=A49-,a667*DUMMY*AlR06C3) 

A(6f I)a+C2*AIK0C*AIR02(1) + Af>l 

AC6,5)=-AIR0C*CAIR03(n-AIR02Cn*TNDLn+A65 

AC6>6)=-AIR0C*AIRU1 Cn+Abb 

A CSf I )=-»5*C2*AIR0C*AIR02(2) 4A81 

A C8,3)s + t Bb67*C2*AIR0C*AlR02C2)+A83 

A C8 ? 7 ) = -AIROC*( AIK03C2) » AIR02 C 2 ) *TnDLT ) 4 A67 

A (8,a)s»«AlR0C*AIR01 (2) +A88 

A 1 1 0# I ) 5*C2*AIR0C*AIR0H (3 ) +A1 0 1 

A CIO, 3)s- t 0b67*G2*AlRQC*AIRU2C3)+AlO3 

A ( 1 0 , 9) a -AIR0C*CAIR03C3) - AIRD2 C3 ) *TNDLTJ 4 A109 
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A CIO# 1 0 J =-AIRQC*AIROl (3J+A1Q10 
C 

C CONSTRUCT The AX MATRIX 
90 00 100 1*1,10 
ASf I)=Q,0 
00 100 J=1 , 10 

100 ASCI)*A8(l)+ACi,J)*TCJ+3) 
CONSTRUCT THE SU MATRIX 


PSIG = PSI + GPSIO 
CSPSI a CUSCPSIG5 
5NPSI = SXN(PSIG) 

BUC23 = C NU1*SNP&I - NU2*CSPSI)/GYEQI 
BUC4) ~ (+NU1* CSPSI + NU2*SNPSI3 /CYtOI 
eU(b)s*AIHQC*AlROZ(l)*COLtiCT 

1 *AlR0C*AlROb(l J*LAM+AIHOC*CLAMX*AIR07 C 1) +LAMY*A1R0B ( 1J3 

2 *AIR0C*AIRQ4(1)*TWIST 

$ +BPREC 

BU(8)s+AIHOC*AIR0Z(2)*CQLECT 

1 *AIROC*AIR0b(2 3*LA*l*AIRUC*(UAHX*AIR07 (2) +LAMY*AIRUB (2) ) 

2 +AIH0C*AIR0«C2J*ThI5T 

3 *f tiPH tC 

BUC10)=+AIROC*AIR02C3)*CQLECT 

1 +AIROC*AlRab(3 3*LAM + AIROC* CLAMX*AlR07(.53+LAMY*AlK08CiJ} 

2 +AIROC*AIRO«C3)*TW1ST 

i +8PHEC 

DO 200 1=1,10 
200 TCl+ 13 )=ASCID+BUCn 
RETURN 
END 


a% 
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SUBROUTINE OUTPUT 
REAL NUlfNUg 

c 

COKMON/STATE/ 
i 

COMMON/PRM/ 

1 

CQMMQN/WGHT/ 

C 

CDMMON/MAIN1/ 

i 


COMMQN/PRIN/ 

1 

C0MMQn/0UTNEW/YMR(2QQ,4) ,IRQT,INEW,I5IML 
COMMON/BIAS/ RMBIAS,PMBIAS,RAB1AS,PAEJIAS 

c 

RADIAN=57,2957B 

ig PSU(ICOUNT)sPSI*RADIAN 

cpsiccoscpsn 

SPSI=SIN(PSI) 

CPSIOs:COS(PSl+GPSIO) 

SPSIQsSIN(PSI+GP5IO) 

IFUROT ,EQ, 1) CO TO 15 
C 

C CONVERT STATIONARY BIAS TO ROTATING COORDI ANTES 

RBSASRsRMBlAS*CPSI+PMtiIAS*5PSI 
PBIA5 Rb-RMBIA5*SP8I+PMBIA3*CPSI 
RABZARsRABIAS*SPSIO-PABIAS*CPSIO 
PABJARsWABIAS*-CPSIO+PAB3AS*SPSlO 

YCCICOUNT, n = CBS.T AK*( + .86667 at £10)-. 6b667*T(12Jl+RBlASR)/5CALtCn 
YCtICOUNT, 2)»(8ETAK*(-Tt8) + 0 t *»*T(103+0,S*T(12))+PBIASR)/SCALEt2) 
YCt ICOUNTi 3 )s(T(4)+RABIAR)*RADIAN/SCALE(33 
YCCIC0UNT,4)s(T(6)+PABIAHJ*RA0IAN/SCALE(«) 

GO TO 20 

15 YC1 AKA C .86667*T (10)-,8b667*T (12) ) 

YC2 »BETAKa(-T(B)+0.5000aT CiO)+O f 50 00ATC12) ) 

YC3 =T(4)aRA0IAN 

YC4 =T(b)ARADIAN 

YC Cl COUNT, 1) = CYC1 aCPSI-YC2aSPS1 + RMBIAS)/SCALEU) 

YCCICOUnT,2)=(YC1 aSPSI+VC2*CPSI+PHBIAS)/SCALEC2) 
YC(IC0UNT,3) = (YC3aSPSI0+YC4aCPS10+RABIA3*HA0IAN)/SCALEC3) 


ND,N5,KSK,KDT#NSTP,ISTAT, INIT(12),SCALEU2), 
XINIT(24),YCC2QQ,12) ,YM(2QQ,i2), YW<2400) 
MN£37),MNS(37),SEN3IV(36),P(36),AMlN(36),AMAX(3fe), 

DA (3b) ,ER( 2400) , DER (2400,3b) 

WEIGHT (12) 

T(123),A(10,10) ,C(10,10),E(10) ,BU(10),BIX,BIY,BI2» 

BR AD, BRADO,BCH0RD,BL0SS,S WEEP, PERRPH,BH INGE, 

OMEGA, BLOCK, OELT A3, BET AK, TWIST, PRECON, ALPHA, 

ALPHAS, LILA1S, AIHV, AI RRHO, G YI P , G YID , GPS 10, G YROL, 
GYSPED , C2, COLECT ,NU1,NU2,TIMEF|IC0<JNT,PSI, 

IFLOQ, JCDUNT 

PS II (200) ,SPMRP(20 0,2),BET1 (200) ,BET2(200) , BET 3 (200) 
,RDELTI (200) ,RDELT2(200) 
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YC(ICDUNt,a)5(-YCi*C^5l0+YC4*SPS10+PABlAS*«ADIAN)/SCALt £4) 
SO BtUCICUUNT3 = T(B)*KADI An 
BET 2 ( I CUUNT ) =T (10) *RAUIAN 
8ET3(ICL)UnT)sT (12)*RADIAN 
HDELT1 UCDUMT)ST (5) *k ADI AN 
KO£LT2UCaUNT)=T(7)*«ADIAN 

SPMRPCICOONT^ 1)=^U1 
5PMRP(It;uUNT,2)sNU2 
DO 25 N=1,NS 
J1=CN-1)*ND+IC0UNT 

EMC J1 ) = CYC (I COUNT, N)-YM(ICOUNT,N) ) **fclbHT (N) 

25 YW(Jl)=YC(ICOUNT*M)*wtIbHT(N) 

400 GK=GK 
RETURN 
END 
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SUBROUTINE PRINT1 
DIMENSION Z(12),ZZ(12) 

COMMON/STATE/ NO , NS, K3K , KDT, N3TP, 1ST AT , INI T £123 , SCALE (12 ) r 
1 XI NIT (24) , YCC200, 12), YMC200, IS) , YW(240Q) 

COMMON/PR IN/ PSI1 (200) ,SPMRP(2QO,2),8ETi (■2Q0),BET2(20Q3,BET3C2Q0) 
1 , RDELTI (200) ,RDELT2C2Q0) 

*RITE{6,601) 

60 1 FURMATClHlfiax, ‘COMPUTED OUTPUT V ALUES > , 23X , i ME ASURED VALUES 1 , 
123X, l COMPUTED VALUES*/) 

NP1TE(6,7Q0) 

700 FORMAT (UX , 1 PS I M8ETAX M8ETAV ROLL A PITCH A MBETAX MBETAY 
i ROLL A PITCH A SPMR SRMP 8ETA1 BETA2 BET A3 RDELTI RDELT 

22 1 ) 

1002 DO 2 J=1,ND 

1003 DO 3 I-lrNQ 

ZCI) = YC(J,I)*SCALECI) 

3 ZZCI)=YM(J,I)*SCAL£(I) 

2 NRITE(6,602) PSI1( J) , (Z ( I ) , 1=1 , NS ) , (ZZ C I ) , 1= 1 , NS ) , SPMRP ( J, 1 ) , 
1SPMHP(J,2),BET1 (J) ,BtT2(J),BET3CJ) , RDELTI (J) ,RDELT2(J) 

6Q2 F0RMATCiX,F7,2,2F9, 1 ,2F8,i,2F9, 1 ,2F8.3,2F7. i,3F7.3,2P7.23 
RETURN 
END 
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SUBROUTINE 1 DENT i 

DOUBLE PRECISION U TEL , SUNIT , AUn IT , END , G , DDA , D , GPL , RSC , RES , HD w, GST 

1, GPR,5IM,AMP,RET 
DIMENSION NVAR(b) 

C 

COMMON/COM1/ N3,N1 , V,COHR, RELERR,ERM,SUNIT( 12) ,TITEL( 10) , 

1 AUN1T(36) 

COMMON/STATE/ nD,n5,KSK,KPT, NS TP, ISTAT,IN1T(12) , SCALE (12), 

1 XlNir< 2 U) f yC( 2 OO, 12 ) ( YM( 2 OO, 12 ) f Yw( 2 £l 0 O) 

CUMMON/PRM/ MN(i7 ) ,mNS( 37) ,SENSIV(3b) , A{3b) , AMI N ( 36) , AM AX ( 36 ) 

1 ,DA(3b) ,ES(2400) ,DER(24Q0,36) 

CUMMQN/wGmT/ wfc I GHT (12) 

COmkQN/I DEN 7/ K5rtTCH,ITPL,lPLOTl,IPLOT2,lSKIP,ITMAX,THR f MCOR f I COR 
COMMON/NVRT/ DC3b) ,DDA (3b) ,G(36,3b) 

COMMQN/PL0T/ SYMB(a) 

COMMON/P ARSUB/INT (5) , RE(4),PCTC3b),HALT 
C 

COMMON/MAJNl/ T C 123 3 , Dl (230) » OMEGA, 02(30), I COUNT ,P r 102 £2) 

C 

DATA END, GPL, RSC, RES/ ********* 1 , » *GQ PLOT 1 , ***HESCQR* , »**RE5AMP*/, 
1RDW/'*REA()wGH'/,GST/**G 0 STOR*/,GPR/'*GO PHIN»/,SXM/l*SimjLAT»4f 

2, AMP,RET/***DUTPUT», * *RETURN »/,TEN/U«/ 

LOGICAL *1 HALT 

c 

c store initial conditions in matrix xinitcj) 

ISTAT=TC1) 
i 00 « DO a Jsl,ISTAT 
a XINITCJ) = TCJ+3) 

C 

100 FORMA' , I Q A 9 ) 

143 FORMAT £///,2X, 10Ad) 

KRUN 3 0 

c 

C INITIAL SETTING OF ^VARIATION FOR &ACM OF THE 3b PARAMETERS 

DO 997 1=1,36 

997 PCTCI) = 0,01 
C 

C INITIALIZING of WEIGHTS FOR ALL 12 MEASUREMENTS 
DO 999 1=1,12 

998 WEIGHT ( I ) = 1, 

C 

C SET M I N 1 M JM ERROR AT *HICh ALGORITHM WILL STOP ITERATING 

ERM c 0,0001 
C 

C SET MINIMUM VALUE AT WHICH PARAMETRS WILL HE CONSIDERED IRRELEVANT 





DMIN = 1,E>07 

c 

C ST4RT CLOCK TO KELP TkACK OF COMPUTATION TIME 

1 0 0 0 CALL 3£TTIM(0,Q) 

V •> 0 , 

KRUN s KRUN + 1 

c 

C CALL 1NOUT TO REAP AND WRITE MODEL PARAMETERS AMP MEASURED DATA 

.CALL INOUTCl) 

IF C T I TEL Cl) .EO.RET) RETURN 

C 

C CALCULATE AUTOCORRELATION when readplot OPTION IS USED 
IF(V,EQ,-1.J CALL ERROR ( 0 , N3 , 0 , V , CORR , RELERR 3 
IFCTITELCIOJ.EQ.SIMJ GO TO 312 
C 

C IDENTIFY PARAMETERS 

Mi = i 

CALL PAHAM(Nl f N3,Hi,DMlN,£HM) 

IF(Mi,EQ,0) GO TO 212 

C 

C CALCULATE RELATIVE ERROR, CORRELATION AND AUTOCORRELATION 

CALL ERRDHCN1 ,N3,Mi,V,CQRR,RELERR) 

C 

C CALL INOUT TO OUTPUT FINAL RESULTS OF IDENTIFICATION 

CALL INOUT (2) 

C 

C READ THE OPTION CARDS 

212 READC5, 100) TITEL 

213 wRITE(6,K3) TITEL 

IF (TITEL(1),EQ,GPR) CALL PHlNTl 

243 IF (TIT EL Cl), NE t GST) GO TO 43 

C 

C STORE DATA ON DISK 

READ(5,57G) IDSET,ID1,IRUN 
570 FQRMATC4X, 12, 2X, 12,12) 

WRITE(6,701 y 1DSET • 

701 FORMAT (/ * THE DATA WILL BE STORED ON UNITM2) 

CALL CRUNCH CXDi,IHUN, 10000, ID5ET) 

C 

«3 IF(TITELCn,EQ.GPL) GO TO 10 

IFCTITELCl) ,NE,END) GO TO 212 
GO TO 99 

10 READ (5, 500) TITEL 1 1 3 , MULT , NVAR, ND 1 , ISKl 
500 F0RMA-T(A8,AW 11,715) 

IF (MULT ■ EO* TEN) NVARCU = NVAR(l) + 10 
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IFCNVAR(l) , EQ , OJ 130 TO 213 
WRITE C6, 1^3) TITEL 
NDS = ND 

PLOT ANYONE OF THE FOLLOWING OPTIONS! COMPUTED AND MEASURED VALUES 
RESIDUAL AMPLITUDE OF THE OUTPUTS OR THE RESIDUAL AUTO-CORRELATION 
FUNCTION OF THE OUTPUTS 

1001 DO 1 1=1, 6, 2 

IFCNVAR(I).E0,0) GO TO 1 

L = NVARCI3 

K = NVARCI + 1) 

IF(TITELC1),NE,RE3} GO TO 2002 

1003 DO 3 J=1,ND 

YC{J,K) = YCCJ,LJ - YM(J,L) 

3 YMCJ,K> = 0, 

GO TO 202 

2002 IFCTITELCl)*NE«RSC3 GO TO 201 

1002 DO 2 J=1 , ND 

J1 = J + CL-1)*NDS 
YC ( J, K ) = Yw(Jl) 

2 YMCJ,K) = 0, 

GO TO 202 

201 IFCTITELCU.NE.AMP) GO TO 213 

202 ISK = 1 

IF C ISK 1 , NE , 0 ) ISK = ISKl 

IFtNDl.NE.O) NO = ND 1 

CALL PLOTINCLf K, ISK) 
i CONTINUE 
C 

ND = NDS 
GO TO 10 

99 TIME = INTVALCO,0)/1000, 

WHITE(6,60Q) KHUN, TIME 

600 FORM AT ( // • ***END Of IDENTIFICATION RUN NUMBER', 12,' , TOTAL COMPU 
1TATIQN TIME 1 ,F 6,2, 1 SEC, ***') 

GO TO 1000 
END 




163 


SUBROUT INt INGUTCJJ) 

C 

DOUBLE. PRECISION T ITEU SUM T , AUN IT , t ND, G , DDA , Q , CODE , RET, RPL » KELV AR 
1 ^ pj)w 

DIMENSION CODECS) ,SKIP(bJ 

c 

COMMON/STATE/ ND,NS,KSK,KDT„NSTR,ISTAT , I NIT [ 12) , SCALE C 15) , 

1 V INI It 24) , YCC200, 12) ,YMC20 0, 12) , Yw(24Q0) 

CQMWON/PHM/ MNC37) ,MNS(37) , SENS IV (36) ,A(36) , AMIN (36) , AMAX(3to) , 

1 DAC36) ,ER(2400) , DER (240 0 , 36) 

COMMON/COM1/ N3,N1 ,V,CQRH,RELERR,ERM-,SUNITC1H),TITEL(10), 

1 AUNITC36) 

COMMOn/IDEnT/ KSWTCH, ITPL, IHL0TUIPL0T2, ISKIP, lTHAX f TMR,MCOR, ICOR 
CQMMQN/PARSUB/N10YDA,N3DYDA, IDUMC3) , DUM C 3 D , DMJN, PCT (36) , HALT 
COmmQn/NVRT/ D(36),DDA(36) ,G(36,36) 

COMMON/wKITE/ wR(36),wA(36) 

CQMMQN/wGHT/ WEIGHTC12) 

COMMON/PLOT/ SYMSC4) 

C 

COMMON/MAI Nl/ T (123) ,D1 (230 ), OMEGA, 02(12), GPSIQ,D3C7) ,ICOUNT,P, 

1 IFLOG/JCOUNT 

COMMON/OUT NEW/YMR{ 20 0,«) , I ROT , INEw, I GYRO 
COMMON/ IN0UT1 /Phi, RPkI,THET,RTHET# I REC 
C 

DATA END, RP,CTXNUE,SLH/ ********* ',»)',* C • , * / ' /,ICODt/ ' DSET*/, 
1C0DE/'*SIMULAT» , f *RERUN * , * *NLwD ATA * , **CUNT1NU' , »*StN5lTI '/, 

1 RET, RPL/ < *RETURN * , i*READPLO , /,RELVAR/**RELVAR * /,RDw/ ' *wEIGHTS >/ 
C 

LOGICAL *1 SKIP, HALT 
ISTATsT(l) 

C JJ = 2 AFTER IDENTIFICATION HAS BEEN COMPLETED 

IFCJJ,EQ,2) GO TO 206 

143 FQRMAT(31X,10A8) 

100 F0RMATC10A6) 

699 FORMAT C IX, 1 0A8) 

DO 9001 1=1,5 

9001 SKIPCI) = .FALSE, 

9002 READC5, 100) TITEL 

wRI TE (6, 699) TITEL 
IFCTITEL(1) ( EQ,C0DE(4) ) RETURN 

IFCTITELCD.EQ.RET) RETURN 

IFCTITELCD.NE.HPL) GO TO 9004 

SKIPC5) = .TRUE. 

SKIP (2) = .TRUE, 

SKIPC3) e .TRUE, 



SKIP(*0 = .TRUE, 

GO TO 9002 

9004 DO 9003 1*1,5 

IF(TITELU),NL t COD£(I) ) GO TO 9003 
SKI P 1 1 3 = .TRUE, 

GO TO 9002 

9003 CONTINUE 

IF C SKIP (53 3 SKIP Cl 3 = .TRUE. 

IF (SKIP C2) 1 GO TO 1 

IF f SKIP C 33 D GO TO 151 

1 READ (5.101) N1,ND,NS,KSK,NSTP,KST0P,LIST,1NIT,ISTART, 

l SYMB,KSWTCH, ITPL, IPLUT 1 , 1 PLOT 2, I SKI P , I TMAX , wGF , T HR , MCOR, ICDR 

101 FORMAT (715, 1211, 13/4 A l, IX, 6I5,5x,2Fl 0.5, 10X ,215) 

C N 1 IS THE NUMBER OF PARAMETERS TO BE ESTIMATED 

N2 a Nl + 1 
MN(N2) a 1 

C NO IS THE NUMBER OF POINTS OF THE TIME HISTORY WHICH AHE USED 
C NS IS THE NUMBER OF VARIABLES WHICH wEREr. MEASURED 
C KSK IS THE SKIPPING FACTOR 

C MnS WILL determine WHICH parameters WILL BE ESTIMATED (NOT LST IF 01 
C M N S ( N 2 ) IS THE INDEX OF THE PARAMETER STARTING THE DEPENDENCE ANALYSIS (COR) 
NDQ = ND 

2 READC3,102) Mn5,mnS(N2) 

102 F0RMAT(37I1,2X, 12) 

IF ( SKIP C33 3 GO TO 151 

IF (SKIP (2) ) GO TO 7 

C READ THE VALUE OF THE PARAMETERS (A), AND THEIR LIMITS (AMIN ,AMAX) 

1003 DO 3 11*1,31,6 
12 s II + 5 

READ (5,503) (AC1),I=I1,I2),CND 
IFCCND.NE.CTINUE) GO TO 30 

3 CONTINUE 

30 IFCa 2.LT. Ml GO TO 60 

READ(5,53Q) (AMIN (I), 1*1, 12) 

RE AD (5 * 530 ) ( AM AX C I ) ,1*1,12) 

DO 930 1*1, Nl 
SENSIV(l) a 0, 

IF (AMINcn.EB.O, ) A M I N ( I ) a -l.E + 50 

930 ■ IFtAMAXCIl.fcQ.O.l AMAX(I) a l.fc 50 

READ C5, 53 1 ) C W A ( I ) , la 1 , N 1 ) 

503 FORMAT (6E10,3,4X,A1) 

530 FORMAT (6E1Q . 3) 

531 FORMAT (12(A4,1X) ) 

5 READ (5,505) (SCALE Cl) , 1*1 ,6 ) , CND, (SuMT ( I ) , X a 1 , e>) 

505 FORMAT(6E10.3,4X, A1/6A8) 
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IF(CND # EQ.CTINUE)READC5,505) C SC ALE £ I ) , 1 = 7 , 1 2 ) ,J , £ SUN I T { I) , I = 7 , 1 2 ) 

DO b N52 a 1,11 

IFCSCAUCNS2+1) , EG, 0,3 GO TO 5508 
6 CONTINUE 

5508, EEAD(5,506) CAUNIT U ) , 1 = 1 , N1J 
508 FORMAT C10A8) 

READ THE DATA CARDS , CThE FIRST DATA CARD INDICATES ON WHICH UNIT THE DATA 
IS TO 8£ READ, IT MUST CONTAINS, STARTING IN COLUMN 1 i DSETNn , WHERE nN 
IS AN INTEGER DEFINING THE DATA SET, COS IS DATA CAROS, 07 MIGHT INDICATE A 
DISK), IF THIS CARD DOES NOT APPEAR, THE DEFAULT IS 05 ) 

151 MISFIT a MAX0C1,ISTART) 

IF (SKIP (3) ) ND = NDO 

CALL READINGS TOP, LIST, MISFIT) 

KDT IS THE ANGLE INCREMENT IN M I LL IDEGREE5 
DPSI = KDT/1000, 

DT = DPSI/ C57,29578*QM£GA) 

FOR FORCED S/P ANGLES IFLOG=l STORE S/P ROLL ANGLE In YMR(I,1) 

AND S/P PITCH ANGLE IN YMRfI,2) IN ORDER NOT TO INTERFERE WITH 
YM IN THE OUTPUT SUBROUTINE 
IFflFLOQ ,EGF, 1) GO TO 799 
GO TO 820 

799 IFCIREC , EO, 1) GO TO B12 
KKK = 0 

DO 810 1=1, NO 

PSI=OMEGA*DT*FLOATCKKK)*KSK 
KKK=KKK+ 1 

CPSIOsCOSCPSI+GPSIO) 

SPSIO=5INCPSI+GPSIO) 

YMR(I,n=YM(I,3)*SCALEC3)/57 l 2957B 
YMRCI,2)=YM(I,a)^SCALEC4)/57 i 29578 
YMRU, 3)=OMtGA*(PHI*CPSIO + THET*SP5IO) 

BIO YMRCI,ii)=OMEGA*C-PHl*SPSIO + TKET*CPSIO) 

GO TO 820 
C 

C GYRO DERIVATIVE CALCULATION FOR TRANSIGNT LOCKED GYRO CASE 

812 D£L1=QMEGA*DT*KSK 
DEL2=2,*DEL1 

DEL 3 = 3 , *OEL 1 
DO B13 1=1, ND 

YMR Cl , n = YMCl,3)*SCALEC3)/5 7.£9578 

813 YMR(I»a)=YM{I,«)*5CALEC<0/57,2957B 
NDDDsND-3 


oo ais i=i,nddd 

YM«Cl,3)»-0MEGA*((YMRCIf 1 J-YHRCI+i, 1) J/0ELl+{YMR(X,l)-yMR(I+2,n)/ 
10EU2+(YMRn,n-YM«(I + 3 f 1) J/DEL33/3.Q 
8J5 YMR(I,43*"OMEGA*CCYMRCI,2)«YMRCI+l,23)/DELU(YMHfI,23"YMR(I+2.23}/ 
1DEL2'KYMR(I,2}-YMR£ 1+3,2) 3/DEL33/3.0 

YWR(ND-2f3)B-.0ME6A*((YMRCN0-2 f n-YMR(ND-l,lJ )/0ELl + CYMR(ND«2,l) 
1-YMRfND, l)3/DEL2)/2 f Q 

YMR(ND*2,4}S"aMEGA+CfYMR(ND«2,2)-YMRCND-i,2))/DELl+(YMRCND-2,23 
1-YMR(ND,23 )/DEL2)/2,0 

YMR(ND-1,3)=»0M£GA*CYmR(ND- 1, 1 3-YMRfND, 1 3 3/DEL1 
YMRCNO-if tt)B»OHEGA*(YMR£ND-*l »2)-YMRCND,2 3 3 /DEU 
YMRCND,33aYMR(ND«l,33 
YMR(ND,43sYMR(ND-l,4) 

820 IfflRQT ,EQ, 1) GO TO 822 
GO TO 830 
C 

C CONVERT MEASUREMENTS TO STATIONARY COORDINATES IF IHUF=1 

822 DPSIsKQT/1000, 

DT=DPSI/C57,29578*0MtGA3 

KKKsO 

DO 825 JR0T=1,ND 

S PSI=QMEGA*OT*FLOAT(KKKJ*KSK 

KKKSKKK+1 

CPSIOaCOSCPSI+GPSIO) 

SPSIO=SINCPSI+GPSIO) 

CPSIsCOSCPSn 

SPSlsSINfPSI) 

YMIbYM£JR0T,13*SCALEC1) 

YM2=YMCJR0T,23*5CALE(2) 

YM3=YMfJR0T,3)*SCAUC3) 

YM4aYMCJRaT,43*5CALEC«) 

YMCJROT,13«CYMl*CPSI«YM2*SPSn/3CALECU 
YM(JRaT,2)B(YMJi»SPSI + YM2*CPSn /"SCALE (2) 

YMCJR0T # 3) = CYM3*SPSI0+YM4*CPSI,D)/SCALt£i) 

825 YMCJROT,43=C-YM3*CPSIO+YM4*SPSIO)/SCALE(«3 
830 IFCMISFIT.GT.03 STOP 2 

IFCSKIPC433 GO TO 42 

IFCSKIPC23) GO TO 7 

IFCSKIPC333 GO TO 5100 

C N3 IS THE TOTAL NUMBER OF DATA POINTS 
7 N3 = ND*N5 
NOMAX = 199 
NO = MINO (ND/NDMAX3 

WRITE f6| 107) T I TEL. Nl.Ng.ND.Ni.KSK.DT, NS TP 
107 FORMATftlf.30X.10A8 /t 30 X , 80 ( » - ' ) /n » PARAMETERS', 


» ^gw gMaiaiK4&^ii* 
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1 7X,I2,« OUTPUTS*// * »,I4,* MEASURED VALUES PER 

10UTPUT (»,I4,« MEASUREMENTS] , *,I4,' WAS THE SKIPPING FACTO 

1R USED '//' TIME INTERVAL BETWEEN MEASUREMENTS* ,F8«4, 1 

tSEC, > ,6X, 16, * STEPS OF INTEGRATION IN EACH INTERVAL'/) 
wRITEC6,707) DPSI 

707 FORMAT C 1 ANGLE INCREMENT BETWEEN MEASUREMENT 5 ' , F 1 0 , 2, ' PEG'//) 
WRITE C6 f 607) CXINIT(I),I*i,I$TAT) 

607 FORMAT ( ' INITIAL CONDITIONS '/1X»1P12E11,3) 

NSH*NS2+1 

WRITE C6, 606) t$CALE!I),SUNIT(I),SLH,I=i,NS2) 

606 FORMAT C/ * SCALING FACTORS FOR DATA UNITS'/' 1 DTU* ' , 6 C IPE 1 1 , 3 , AS , IX 
1|A1) ) 

40 WRITE {6* 640) Cl,RP,WA(I),lsi,Nl) 

WRITE(6,140) (A(I),I=1,N1) 

SI 00 READ f 5 , 100) TITEL 

IF (TITELtn .NE.RELVAR) GO TO 5050 
READ (5# 551) CPCT(D,lsi,Nl) 

551 FORMAT !6E10,3) 

DO 5555 1=1, Nt 

5555 IFCPCTCD.EQ.O,) PCTtI) * 0,01 

GO TO 5100 

5050 IFCTITELC1) .NE.RDw) GO TO 50 

READ C 5, 550) C «E IGHT { I ) r 1 = 1 , NS) , ERM , DM IN 

550 FORMAT (BE10 , 5) 

GO TO 5100 

50 IF (SKIP C 5) ) GO TO 6650 

IF(SKIPCD) GO TO 42 

WRITEtfe,240) CAMIN(I) ,Isl,Nl) 

WRITE (6, 340) CAMAX(I) , 1*1 ,Nl) 

WRIT&C6, 607) ITMAX,THR 

640 FORMAT [/ ' PARAMETERS NAMES * / ( 1 X , 1 2 (3X , 1 2 , A 1 , 1 X , A4 ) / ) ) 

140 format!/' initial values of the parameters'/!' ' , ipi2eu,3/) ) 

240 FORMAT!’ LOWER BOUNDS '/( 1 X , 1 P 1 2E 1 1 , 3/ ) ) 

340 FORMAT!' UPPER BOUNDS ' / ( 1 X , IP 1 2E11 , 3/ ) ) 

SO 7 FORMAT! /' THE IDENTIFICATION PROCEDURE WILL USE A MAXIMUM OF «, 
113,' ITERATIONS AND A SEPARATION THRESHOLD EQUAL TO', £6, 2) 

6650 WRITE 1 6 , 650 ) (WEIGHT ! 1) , 1 = 1 , NS) 

650 FORMAT!/' ***TH£ FOLLOWING WEIGHTS ARE USED* ** ' /6X , 6 1 1 PE 1 1 . 3, 1 0 X ) ) 
WRITEC6,651) £RM,DMIN 

651 FORMAT!' ERKMIN r ',1PE10,3,' , DmIN = l,E10,3) 

W*ITE{6,660) C PCT ( I ) , I* 1 , N 1 ) 

660 FORMAT!/' INITIAL PARAMETER INCREMENTS FOR GRADIENT EVALUATION 1 / 

1 ( IX, 1P12E1 1 ,3)) 

42 IF (TITELCl),EG,tND) GO TO 43 
READC5, 100) TITEL 
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WRITE(6,I43) 7ITEL 




GO 

TO 

42 

43 

IF(5KIP(4) ) 

GO 

TO 

64 


IF (SKIP(b) ) 

GO 

TO 

162 


1FCSKIPCU) 

RETURN 

GO 

TO 

62 

208 

CONTINUE 




B 

WRITE (6, 1085V, 

CORR, RELF-RR 




1 (I,WA(I),A(I) ,DAIIJ fAUNIT(I) ,5fcNSIV(I)fMN(I),MNS£I),Isl,Nl) 
i oa FORMATC ’ i 1 r 10X, 'FINAL RESULTS OF THIS I DENT IF IC AT I UN 1 / II X, ib ( ' - ' ) / 
3' FIT TEST ** COST s i , E 1 2, 4 , 1 OX , ' CORREL AT ION =',F8,b/9X, 

3 'RELATIVE ERROR =',F6,4// 

4' ESTIMATED VALUES OF THE P AR AMETERS ' /fa 1 X , ' DEPENDED V INDEX'/4X, 

A' NAME ' ,5X, 'EST.VALUE' ,3X, 

5 ' ERROR BOUNDS UNIT S', bX, 'SENSITIVITY 1 , 3X, ' FINAL INITIAL'/ 

b(14,lX,A4,' = i t iPEia, 4, 1 +/- ',EB»i,lX,AB|.0PH4,5,6X,ll,7X,in ) 

RETURN ’ 

60 READ (b, 100 ) T IT EL 

wrITE(6,690J IH,N1,TITEL 

690 FORMAT!//' ****SUB, INPUT MESSAGE,,,, ONLY', 13, » VALUES WERE FOUND 
1 IN THE DATA CARDS FOR THE', 13,' PARAMETERS'//' THE NEXT CARD CUNT 
2AINS,., ' , 10AB/« *RUN TERMINATED ' ) 

STOP 

62 RE AD C b f S62 ) I , IDSET , NT APE , NRUN 
562 F0RMAT(A4,I2,2X,I2,I2) 

IF (I ,NE . ICODE) GO TO 63 

162 KT s i 

CALL DYN(M,KT,0) 

J1 = 0 

1066 00 66 1=1, NS 
DO 66 J=1,ND 
J1 = sfi + 1 
ERCJ1I * 0, 

66 YM(J,I) = YCtJ,Il 

IFCSKIP(5)) GO TO 69 

CALL CRUNCH (NT APE, NRUN, 1000 0, IDSET) 

WRITE (6, 662] NTAPE,NRUN, IUSET 

662 FORMAT (/' SIMULATED RUN ',212,' COMPLETED AND STORED ON UNIT ',I2J 
' 65 T1TELC10) = CUOECn 
return 

bit N i = 0 

1067 DO 67 1=1, NS 
scale ( 1 1 = 1, 

00 67 

im3 — N3 + 1 


169 


ER(N3) = YMCJfl) 

67 YCfJ,I) = 

V»*l ■ 

GO TO 65 

63 WHITE (6^663) I 

663 FORMAT t * WRONG CODE ,t, ,A4 f ,,, < OSET UNDEFINED, RUN NOT STORED * } 
TITELll) = RET 
RETURN 

69 NIDYOA* N 1 
N3DYDA s N3 
CALL DYDA 
ICOR « ITMAx + i 
RETURN 
END 


n o 


SUBROUTINE DYN(Nt,KT,KMIX) 

EXTERNAL DERIV 
REAL NU1/NU2 
C 

COMMON/ST ATE/ ND,NS,KSK,K|)TsNSTP / IST.AT, INIT C12) ,SCALE C12), 

1 XI WIT (2a), YC(200, 12), YM (200 , 12 ) , Yw (24QO) 

C 

CUMMON/mAIni/ TCl2i) ,D1 (230) , UMfcfiA , D2 (17) ,NU1 ,Nu2,TIMEF , I COUNT, 
1 PSUIFLOQt JCOUNT 

COMMQN/OUTNEw/YMR (200,4} , IRQT r I NEW, 1 GYRO 
C 

CALL NE wP 

RESET THE INITIAL CONDITIONS 

1001 DO 1 J51#ISTAT 

1 TCJ+A) = XINITCJ) 

I COUNTS 1 
IFCIELOQ) 4,5,8 

4 NU1=YN(IC0UNT,7)*SCALE(7) 

NU2sYH(i COUNT, 8)*SCALE(6) 

GO TO 5 

C 

8 T ( 4 3 *YMR ( I COUNT , 1) 

T ( 6 ) * Y MK ( I COUNT ,2) 

T(53=YMR(ICOUNT,3) 

T(7)SYMR(IC0UNT,4) 

IFCINfcw ,EQ, -1) GO TO 5 
NU1 = YM( I COUNT, 7)*5CALEC73 
NUE=YH( ICOUNT ,83*SC4LE(B) 

C 

C KQT HAS SEEN SUBSTITUED FOR KDPSI 

5 DTsKOT / (57245, 7B*[)MhGA) 

NSK a NSTP*KSK 

T (23 = («T-13*DT 
T (33 = DT/NSTp 
PSI=0M£GA*T(2) 
in GKS&K 

CALL INT5 ( T, IS T AT, 1,0,01,0.,0,, 0,0,0,, DERIV) 

PSI=OMfcGA*T(23 

1002 DO 2, 1*1, NO 
KT=KT+1 
ICOUNT*! 

IP(IFLOU) 40,45,30 
C 

C FORCED S/P ANGLES AND MOMENTS 


non 


30 Tl**)*YMR(ICQUNT,n 
TC*O*YMRCIC0UnT,2) 

T(5) = YMR tICQUNT f 33 
TC7)=YMRUC0UnT,4) 

IF tlHln i EG) ( -U GO TO 45 
NUUYMCICaUNT,7)*SCAUEC71 
NUH»YMacOUNT,e)*SCALEtej 
GO TO 4b 


FORCED S/P MOMENTS ONLY 
40 NUisYM(IC0UNT,7)*SCALE(7) 
NU2=YM(IC0UNT,&)*SCALE{6) 

as CALL output 
20 GK=GK 
2002 DO 2 Jsl,NSK 
CALL intm 
PSI=OMEGA*TC2) 

2 CONTINUE 
RETURN 
END 


f— 1 

'vj 

to 


C 


c 


SUBROUTINE NEADIN(KSTOP 1ST MISFIT) 

DIMENSION KHlAD(14},IDCmANU4) 

COMMON/ST ATE/ND, NS, KSk,K0T , NSTP, ISTaT, ImIT C125 ,SCALfcQ23 
1,YC(200,12),YMC20Q,12),YW£2«00) 

DATA D$ET, HUN, DATA, CNTINU, END/'DSETi , IRON » , « DA T A ' , » **** 
LOGICAL *1 5-TART 
START = FALSE, 

ISTART s MISFIT 
MISFIT = 0 
NCHAN s 0 
NMAX = 200 
LMX s NMAX 
LAST = NMAX 
NREF s 0 

READC5,50Q»ERK-73 CODE , NVAR , NC ARD , KREAD 
500 F0RMAT(A4,I2,1X, 12, IX, 14153 

IF CCODE t NE, DSET) GO TO 7 

IDSET = NVAR 

GO TO 10 

201 LMX a MlN0aMX,LAST) 

IDEND = 1 

1 IF (LIST , EQ • 0 5 GO TO 10 

WRITE C6, 101) NVAR, MCARD, KREAD, L«X 
101 FORMAT C IX, 12, ' * ' , 12, ' * ' , 1 4 (i 5 , 2X5 , 3X , 14 ) 

10 READCIOSET, 1 10,ERR = fa05 CODE , NVAR , NCAKD, KREAD 
110 FORMAT (A4, 12, IX, 12, IX, 1415) 

IF (CODE, EG, END ) 

IF (CODE, EQ. RUN ) 

IFC.NOT.START) 

IFCCODE.EQ.CNTINU) 

IF CCODE , Nt , D AT A ) 

IF CNCHAn, GE , 125 
NCHAN s NCHAN + 1 
IDCHANCNCHAnD s nvah 
LMX b MlN0tLMX,LAST) 

IDEND = 0 
LAST s 0 
K a KSK 
NREF a 0 

1ST 1 = ISTAHT-C CISTART-i)/14)*14 
KINIT » IN I T CNVAR5*KREAD( IST1) 

20 IF (IDEND. EQ.13 GO TO 1 

NREF s NREF + 1 


GO 

TO 

50 

GO 

TO 

30 

GO 

TO 

40 

GO 

TO 

20 

GO 

TO 

SO 

GO 

TO 

50 


XlNlT£2<i5STATE 

state 

, 1 END 1/ 
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IF- (NCAHD.NE.NREF) bO TU 40 

1002 DO 2 jsi.ia 

lKJ+(NREF-n*lu t uT,ISTART) GO TO 2 

lF(KRfcADCJ).EU«KSTOP,OH,LAST t Bfc,ND) GO TO 201 

K = * + 1 

IFCK , LT , KSK) GO TO 2 

OAST s LAST + 1 

YM ( L AST , NCH AN ) s KREAQCJJ - K JN I T 
K = 0 

2 CONTINUE 

GO TO 1 

30 WRITE(b,130) LlST,NVAK,NCARp 
130 FURMATCIi,' DATA CARDS LISTInG*****RUn NUMBER ' t 13, 1 - ' , 12) 

KDT = KHtAD£2) 

DT = KOT/IOOO, 

START = .TRUE. 

GO TU 10 

40 MISFIT = 1 
5 WRITfcCb. 105) NHfcF.NVAH 

105 FORMAT (// 1 *** ERROR IN DATA CARDS ORDER. CARD NUMBER S 1 3, ? MISSING 
1 IN VARIABLES 12* 1 DATA SET'//' *ENO OF THE RUN ***») 

61 READCb.161) CODE 
161 FORMAT ( A4) 

IP CCODE.NE.tND5 GO TO 61 
RETURN 

60 MISFIT = 2 

READ(5,560) (Ywtl) ,1=1,20) 

560 F QR M A t C 20 A 4 ) 

wRITECbrbbO) CODE , £ Y w ( I) , I = 1, 20 ) 

660 FORMAT C < ERRONEOUS CODE ' i i.AU.i mi/i next CARD CONTAINS S20A4) 
return 

50 LMX s MINO CLMX.LAST) 

ND - mInO (nd.LMX) 

KDTS s KDT*KSK 

WRITE (6, 600) KDTS , KSK , ND , NCHAN , £ IDCH An (I } , 1 = 1 , NCH AN 3 
600 FORMATC* X AXIS INCREMENT K0T=t,l6,' SKlps S li, 10, ’ POINTS PER CHA 
lNNEL'/‘ THE S 13 , * FOLLOWING CHANNELS E READ sSl4CI2,S')3 
RETURN 
7 IDSET = 5 
wHITE£6,607) 

607 FORMAT £ * **SUB.READIN MESSAGE, UNDEFINED DATA SET, 5 IS ASSUMED 1 } 
IF £ CODE, Nt, RUN} GO TO bO 

GO TO 30 
END 


SUBROUTINE PARAM(N1S,n3S,M1, D«1 NS , ERRMIN ) 

DOUBLE PRECISION D,DDA,G,G0 
DIMENSION OUT (123 
C 

C'OMHON/PAtfSUb/iMl , N3,KC,KT,KMQDE,V, VI, VS , DM I N , PC T ( 36 ) , HALT 
COMMQn/PRM/MN(37) ? MnS(37) , SENS IV (36), A (56), AM IN (36), AMAXC36) PHM 

l,DA(36),Ert(2U0Q),DEK(2«00,36) PPM 

COMMON/STATE/ND, NS, kSK,KDT,NSTP, 1ST AT, I NIT (12), SC ALE Cl 2) f XIN IT ( 2A ) ST A T E 
1, YC( 200, 12) ,YM (200,12 ), YWC2400) STATE 

COMMON/lDENT/KSwTCH,lTPL, I PLOT 1, 1PL0T2, ISKIP, ITMAX, THR, MCOR, ICOR 
COMMON /NVRT/PC 36} ,ODA(36),G(3b»36) 

COMMON/BASIS/ iaASIS(3fa), PI VC 36), GO (56,3b) 

COMMON/ wRITE/wKC 36), WA (36) 

C 

DATA BLK , DSC / 1 >,'*D »/ ,AIRR/«*I '/, UNUSED/ ' NO '/ 

logical *1 HALT 
OmIN = OM1NS 
N1 = N18 

1100 DO 100 I *1 , NS 

OUTtI) = l.t-bO 
2100 DO 100 J=l,NO 

100 OUT ( I ) s OUT C I ) + CYM(J,I) )**2 
N2 = N1 + 1 
MODE = 99 

KIT = 0 
Krt s 0 
KMODE = 1 
K ND e 2 

C DON'T ESTIMATE SOME GIVEN PARAMETERS C FOR WHICH MN5 = 0) 

1006 DO 8 1*1 , Nl 
8 M N C I ) = MNSCI) 

VS b 1.E60 
KC = 0 

1 IFCMT.GE.KSWTCH) KMODE = 0 
CALt SET TIM ( 1,0) 

KT = 1 

CALL DYn(n1 ,KT,kmOO£) 

201 J * 0 

RELERH = 0, 

V = 0, 

1002 DO 2 1=1, NS 
V 2 s 0, 

1020 DO 20 Ks 1 # ND 
J = J + 1 

V2 = V2 + (YCCK,1)“YM(K,I))**2 
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20 y s V + ER(J)**2 
2 RELtRH = RELtRR + V2/OUTCI) 

REL ERR = SQRTCRtUtRR/NS) 

N 3 3 - J 
260 M5 = J - 
V 1 = V 
V = V/J 
OV S V - VS 

IE (KIT.tQ.KSrtTCH) GO TO b 

IF (OV , G T „ 1 « E"02* VS 3 GO TO 6 
KC = 0 

GO TO 5 

6 CALL adjust 

IF (KC ,GT , 0 3 GO TO 201 

b IF(KIT,LT.ITPL) call PLOTINCIFLDT1 ,IPL0T2, ISKIP) 

14 wRI T£(6, 1 14) KIT .MODE, KND,HELtRR,V, C A C 1 3 , I=i«Ni) 

114 FORMAT (/ ■ ITERATION 13, < , MQDE wAS',12* 1 . HMDs ' , I 2 , 5bX , 

1 l HEL» ERROR ='*1PE9,2,» COST = *, El 0 . 3/ 1 X , 3« ( ' - < ) , 1 P ARAM 
2 t. TEWS VALUE S',43(’-»)/2X, » 1 13 25 21 

34 2b 3 lb 27 a lb 2S b 17 2R 6 IB 30 7 19 31 & 2 

40 32 9 21 33 10 22 34 1 1 23 3b 12 24 36 ' / ( 1 X , 12E 1 1 . 3/ ) ) 

IF CKC.Eflr-l) GO TO 214 

IF (KIT.GE. ITMAXD GO TO bl 

IF.(MQDE.fcQ.l) GO TO 214 

IF (HELERR.LT, EMRMIn, OR, KNO, b«, 3) GO TO 51 

214 IF CVS.GT, V,QR,*IT t EU,KSwTCH) V5 = V 

MALT = .TRUE, 

CALL DYDA 

IF (HALT! GO TO bO 

KR s KR + 1 
M = 0 

I F (KC + ICOR - KIT, EG. 0) I COR s ICOR + 1 

IFtKlT+l.EU.ICORJ msMCQR 

CALL COHCNl,Ni # TH»,H) 

2011 Ml = 0 
KND = 3 

ion do n 1=1 , mi 

WR(I) = DSC 

IF (G(I,I) .EG, 0. ) WR(I3 = airr 

IF(MNSCI) ,EQ,0) WR(I) = UNUSED 

IF (mn ( I) • EQ • 0 ) GO TO U 

wk(I) s SLK 
Ml = Ml + 1 
0 A ( I ) = -DDACI) 

D A ( I ) = A M A X 1 ( ( A M I N ( I ) « A ( I ) ) » 0 A £ I ) } 
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Did) = AMIM((AWAX(JJ-ACXJ)»0A(I)) 

IF 'ABStDA(I)),GT,0,0005*AfcS5{A(I) J 5 KNU = 0 
A ( I ) = A C 1 ) + DA (I) 

11 CONTINUE 

17 w*ITE(6,6l7) (X,rtR(I)*Isi f Ni) 

617 FORMAT { * STATUS’ 24(12, A3)) 
wRITE(6,blB) ISEN5IV(I),I»1,N1) 

618 F DHM AT C 1 SENS s* f 2«F5,2) 

TIMt s INTVALC1/0)/1000, 

11 = IbASIS(i) 

12 s ibasis(mi) 

SEP = SORT CPIV (X?) ) 

*HITE[6,60Q) mnS (N2 ) , II , WA ( 1 1) , 12, **A CI2) * SEP, TIME 

600 FURMATfl START » , 13, ' , FIRST*, 13,* (<,A(i„-)f LASTdli,* f,AU,i)» 
1,5X,'3EP s',El0.2,20X, »TIME si,F8,2,» SEC*) 

KIT = KIT + 1 
MUUE * KMQUfc 
GO TO 1 

BO *RITtC6,6B0) 

650 F OHM AT ( / / * ALL THE PARAMETERS ARE IRRELEVANT, POSSIBLE MODEL ERROR 
1, IDENTIFICATION PROCESS CANCELLED * ) 

RETURN 

51 IF (KIT pGt.ICOR) GO TO 152 

1052 DO 52 Ns 1 , N 1 

52 MN{N) = MNS(N) 

CALL CORCNl,Ni,THR,MCOR) 

152 VisO, 

1053 DO S3 J*1 ,N3 

53 VI s VI + Y w ( J ) * *2 
RRlTE(6,fo0l) (wA(I),PCT(I),Isi,M> 

601 format t // * parameter increments cda/aj for gradient evaluation*// 

1 £1X,6{2X,A4, 's'^PW.l))) 

105a do sa 1*1, N1 

IF(MNSCI) ,ED,0) 60 TO 5a 

SENS 1 V ( 1 ) = AbS(A(l)*SNGLCD(in/SURT CV1) ) 

sa continue 

N3S = Ni 
Ml = 0 

1055 DO 55 1*1, N1 

55 IF (MNCD.NE.O) Ml i Ml M 

RETURN 
END 



SUBROUTINE. ADJUST 


COMMON/P ARSUB/Ni ,N3 ,KC,kT,KM 00E,V,V2, VS,DMIN,PCTC36) ,HALT 
CQMMDN/PRM/MN£37),MNS£37),SENSIVC36) fA(36) ,AMIN£36), AMAXC36) 

1 , D A £ 36 3 , ER £240 0 ) , DEW ( 240 0 , 363 

LOGICAL *1 HALT 

IFCKC.EQ.O) GO TQ 7 

KC = KC 4- 2 

IF £KC,GT f 3) GO TO 5 

I(?(KC,GT,1J GO TO 1003 

16 -WRITE(6ill6) (0A(N),N=1 P N1) 

116 FORMAT ( * PARAMETERS: INCREMENTS «/£ 1 X , IP 12E1 1 . 3 )) 

1003 DO 3 1=1, N1 

IFCMNCI) f E*] ( 0) GO TQ 3 

A ci 3 = A(T) . U5*DACI3 

3 CONTINUE 
KT = 1 

CALL DYNCN1 ,KT,KMODfe) 

VB s 0, 

1030 DO 30 J= 1 P N3 

30 VB = VS + EW£J)**2 
VB = VB/N3 

EPS * 0,5 

IF CVB t LT,V3) GO TO 1031 

- VI - 2 , * V + 4,*v6 * 6 , * vS 

EPS = CV - 4 , * VB + 3,*VS)/(Z,*V1) 

1031 00 31 1=1, N1 

IF (MN £13 ,£0,0) GO TO 31 

AMEMO = A 1 1 > 

A ( I ) = A C I ) - CEPS - 0,5) *DA f I ) 

A £ I ) = AMAXICA(I) ,AMINCI) J 
A £ I J = AMINl C A C I ) ,AMAX(I) ) 

DACI) = Ail) - AMEMO + 0,5*OA(I) 

31 CONTINUE 
EPS = -EPS 

4 WKITE£6,104) V,vB,EP5 

104 FORMAT ( 1 ***STEP CORRECTION* COST W AS » , 1 PE 1 0 , 3 , ' , BACK STEP 
: 1CQST =',tl0.3,', STEP IS MULTIPLIED BY ',E10,3> 

IF£VB>LT,VS) RETURN 

KJ = 1 

CALL ‘OYNCNl,KT,KMQDfe) 

RETURN 

5 KC : 0 
RETURN 



7 KC=-1 


RETURN 

END 




SUBROUTINE DYDA 
DIMENSION ERS{2«00) 

C 

COMMON/P AR5UB/N 1 , h3, KC , KT f KMOOE # V, V 1, VS, DM IN, PCT( 36), HAUT 
COMMON/STATE/ND, NS, «SK, KDT,NSTP,ISTAT, INIT (12 ), SC ALE t 12), XINIT(2«) STATE 
1, YCC200, 12) ,YM(200, 12),YWC2«00) STATE- 

COMMON/PRM/MN{37) ,MnS< 37) ,5ENSIV(36) ,A(i6), AMIN (36) , AMAX (36) PRM 

l,DA(3fe},ER(2U00) ,DER(2400,36) PRM 

C \ • 

LOGICAL *1 HALT, RERUN 
YNMAX ‘SO, 

1021 DO 21 Jsl,NJ 

YwMAX = AMAX1(Y**(MAX, ABSCYWCJ))) 

21 ERS(J) = ER C J) 

RERUN s .FALSE, 

1006 DO 6 N s 1 , N 1 

IFIRERUN, AND t N,NE, 1RERUN) GO TO 6 
C RESET MN 

MN(N) s MNS £ N) 

IF(MN(N) t EQ,0) GO TO 6 

AMEMO s A(N) 

STEP - PCT (N)^A(N) 

IF ( A (N) , LQ, 0,0) STEP = DA(N)*PCT(N) 

C FIRST ORDER PROCEDURE TO OBTAIN THE DERIVATIVES 
A ( M ) = AMEMO + STEP 
STEP s A ( N ) - AHEHO 
KT s 1 

CALL DYN(Nl,KT,ftMQDt) 

IRR s 0 
DERMAX = 0, 

1001 DO 1 0 * 1 , N3 
OER£J,N) =0, 

DERJN = ERCJ) - ERS(J) 

A6DER = ABS(DERJN) 

DERMAX = aMAXI fDERMAX, ABDER) 

IF(ABO£R,LE,OmIn*aBS(YX(J))) go to 1 

DER t J, N) = DERJN/STEP 
IRR = 2 
1 CONTINUE 

SENSIVCN) = DERMAX/YwMAX 
A (N) = AMEMO 
MM(N) = IRR 

IFtlKH, EG, 0) PCTCN) = 3 , *PC T C N ) 

IF (MN fN) ,NE, HALT=, FALSE, 

' 6 CONTINUE 
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IF (HALT ) RETURN 
00 23 J=1,N3 
23 ERCJ1 = fcKS(J) 

RERUN = .TRUE, 

1022 DO 22 1=1, Ml 

IFCMN(I) t EQ,0) GO TO 22 

PCT(I) = PCT(I)*£l, + O.R/SENSlvtn 3/10. 

PCTU) = AMA/1 C1,0E-06,PCT(1J] 
l IF (SENSIVC13 .LEtl.l GO TO 22 

' v ' I RE RUN » I 

PCT1 = PCT(IRERUN)*100. 

WRITE(6,6003 IRERUN,PCT1 

600 FORM AT C l INCREMENT IN PARAMETER REDUCED TOijFR.U, 1 %') 

GO TO 1006 

22 PCT(I) = AWlNl(PCT(I) # O t b-S 
RETURN 
END 



SUBROUTINE CO«(Nl,Ni,THR,MGDEl) 

DOUBLE PRECISION AD, DDA, G f X, GRAD, S, SAVE, 5M AX , SMI N, DET 
DIMENSION SEPAR(18) ,SET(36, 18} , CLEAR C 3b) , CLEARS (36) , IR (3b) 

C0MMON/8ASIS/IBASISC38) ,PIV(36) ,G(36, 36) 

C0MM0N/NVRT/ADC3b) , DDA £36) , C £36, 3b) 

COMMON/WRITE/wR£36) ,wA(3fe) 

C0MM0N/PRM/MN(37) ,MNS(37) , SENS IV £36) ,A£36) , AM IN (36) , AMAX.C36) 
l,DA(36),ER(2aOO),DER(2aO0,36) 


oo 

(-< 


DATA PEQ,C0MMA/3H« s,1H,/ 

LOGICAL *1 LLEAR,CLEA^B,SET,1R,INV 
IF C N 1 ,£Q.O) GO TO 6999 

CALL StTTIM(2,0) 

MODE =s MODE 1 
NEXT = 1 

C *SLCT ION 1* — COMPUTATION OF THfc GRAM MATRIX 


SMAX = 0,00 
DO 500 1=1, Nl 
ADCI) = 0 , DO 

IF(MNU) »EQ,Q) GO TO 2500 

1503 DO 503 K=l,N3 

503 AD f I ) = ADCI) + DBLECDER(K,I))**2 
IF(AD(I).LT,l,D-70) MN<I) = 0 

ADU) s DSQRTCADCI)) 

2500 DO 500 J=l,Nl 
500 CCI,J) = 0*00 

1501 DO 501 1=1, Ml 

IF (tfN(I) «, b « . 0 3 GO TO 501 

1502 DO 502 J=1,I 

IF C1,EQ, J) GO TO 502 

IF CMNCJ),fcO.O) GO TO 502 

15o« 00 SOM K=1,n3 

50« CCI,J) = CCI,J) + D8LECDERCK,I) )*DQLECDLR(K,J)) 

CCI, J) = C(I,J)/(ADCI3*ADCJ)) 

CCJ, I) = t(l,J) 

; DEFINE THE FIRST BASIC PARAMETER 

IFCSMAX.GT .DABS CCCI, J) ) ) GO TO 502 
SMAX s OABSCCUfJ)) 


NEXT = I 
502 CONTINUE 

C£I,I> = l.DO 
GRAD = 0 , DO 


1510 DO 510 K=1,N3 

510 GRAD = GRaO + DbLE C DER CK , I ) ) *ObUE £ EH C * ) ) 


PRM 



DDA(I) = GRAD/ AD ( I ) 

501 CONTINUE 

N2 = Ml * 1 

IFCMNS (N2) ,NE,0) next S MNS(N2) 

C ^SECTION d* -INITIALISATION- --------- 

IF CMODE.EQ.-l) RETURN 

INV s MODEl.GE.lO 
IMINV) MODE = MODE 1-1 0 

Mn(n 2) a -1 ■ 

IF (MOUE.EOJ.O) GO TO 507 

IF (Nl.GT.l5) GO TO 507 

505 WHITE (6,6505) 

6505 FORMAT ( 1H 1 , l Ox , I PAR A«E TtRS CORRELATION MATRIX’) 

1506 DO 50b 1=1, Ml 

506 WRITE (6,6506) wA C I ) , ( C (1 , J ) , J=1 , I) 

. 6506 FORMATC/1X, A4,2X, l5FB.il) 

507 IF (MUUE.LT^) GO TO 1508 

WHITE (6,601) WA(NEXT) 

6 01 FORMAT ( 1 1 SASIC ',30X,i CH ITIC AL » / ' P AR AMETER ' , 5X , ' SfcR AR AT I ON ' 
1, 15X, 'PARAMETER' ,5X, 'SEPARATION* /^X,A^/) 

C-- — -INITIALISE 
Ml s 0 

1508 DU 500 1=1, N1 
Ml 5 ML +MN(I) 

• 1509 DO 509 J=1,N1 

IF{J,L£.18) SET ( I , J ) = .FALSE, 

G ( I , J ) = C(I.J) 

509 C(I,J) = 0 , DO 
C(I,I) = 1,D0 
IRCI) = MNCD.EQ.O 
MN ( I ) s ( (MN(I)+l)/a)*2 
CLEAR ( I ) = .FALSE. 

IF ( t NOT , IN ( I ) ) GO TO 508 

cu,n = o.oo 

DDA(I) s 0,00 
CLEAR ( I ) a .TRUE, 

508 MN(N2) = MIN0(MN(N2),MN(I)) 

IF (Ml.fcfl.Q) GO TO 6999 

DET = 1,00 

5 = THR**2 

KG = 0 

NSET = 0 

PlVtNfcXT) = 1, 

C ^SECTION 3*- ----ANALYSIS OF THE VECTOR SET 

C THE NEW BASIS VECTOR IS NEXT 
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1 CLEAR (NEXT 5 S „ TRUE, 

IF £IR(NfcXT) ) GO TO £004 

K5 s KG U 
IBASISCKGJ = NEXT 
IF(KC t GE,Nl) GO TO £0 

C COMPUTE THE NEW ARRAY DF REMNANT VECTORS 
10Q2 DO £ J=1,N1 

IF (CLEAR ( J ) ) GO TO £ 

C TRANSFORM INPUT VECTOR DDA 



DDA(J) 

SS 

DDA t J) 

- DDA 

CNEXTD*GCJ,NEXTD 


I F { * NOT 

» 

INV) 



GO 

TO 1003 

1203 

DO 203 

1 

= 1,N1 





203 

ccj,id 

s 

C(J, 

I) 

■ C t N 

EXT, 

I J *G ( J , NEXT D 

1003 

DO 3 1 = 

1 

» J 






IF CCLEAR 

an 



GO 

TO 3 


GCJ» ID 

s 

G(J, 

ID 

- G ( J 

,NEXTD*G[NEXT,I3 


G(I, J). 


GCJ, 

ID 





3 CONTINUE 
2 CONTINUE 

C FIND THE DEPENDENT, THE OPTIMAL A‘ND THE CRITICAL VECTORS 
2004 IHEMN 5 0 

5MAX 5 0 1 DO 
5M I N s 1,00 


100« DO 4 I s 1 , N i 
IFCCLEAKCI)) 

IREMN = IREMN + 1 
SAVE = GClrlD 
IF (SAVE f GT # S M I N ) 

C STORE THE CRITICAL 
SMIN s SAVE 
IOUT = I 

5 IFCSAVE.LEtSMAX) 

C STORE THE OPTIMAL 
SMAX s SAVE 
NEXT # I 
U CONTINUE 

IF CI»fcMN,EU,0) 

C CHECK THE DEPENDENT 
IFCSHIN.Lfc.S) 

C COMPUTE THE VALUE OF TmE 
PIVCNEXTJ s SMAX 


GO TO a 
GO TO b 


GO TU 4 l 

k 


GO TO 20 . I 

ij 

GO TO 6 ' 1 

DETERMINANT 


DET = DET*SMAX 

C NORMALISE ROw AnD COLUMN NEXT BEFORE THE NEw CYCLE 
SAVE * USQRTCSMAXJ 
IF CMODE.LT, 43 GO TO 1007 


GO TO 1007 




*> 


Srt-IN = DSSRT ( SMi N ) 

WRITE (6-, 60 0] wACNfcXT) , SAVE , WA ( IOUT) , SMIN 
600 F0RMATC4X, A«, 8X # 1 PE9 , 2 , 1 8X , A4 , BX,E9 t 2) 

1007 DO 7 1=1, Nl 

If ( I N V D C(NEXT»I) = C(NEXT,I)/SMAX 

IFtCLfcARCI)) GO TO 7 

GCNtXTrl] s G(NEXT,I]/&mAX 

7 CONTINUE 

QDA (NEXT ) = ODA (NEXT] /SMAx 

GO TO 1 

C ^SECTION 4* — — ™ — ANALYSIS OP THE DEPENDENCE WITHIN THE SUB-BASIS 

8 NSET = NSET + 1 
OOACIOUT] -0*00 
HN(IOUT) s 0 

MEARCIOUT] = .TRUE, 

-^P'MODE.EQ.O] GO TO 2004 

SE’t (IOUT , NSET) s ? TRUE* 

C FIND THE COMPONENTS OF IOUT ON THE BASIS 
1009 DO 9 Isl,KG 

KBACK = KG+l-I 
K a IBAS IS ( KBACK ) 



IF ( I , EQ * 1 ) 

GO TO 9 

1010 

DO 10 J = 2,I 



KBACK 1 a KG-I+J 



K 1 a IBASISCKBACKl] 

• 

10 

G (K , IOUT) = G (K , IOUT ) 

- G(K,K1 }*G(K1 ,IOUT) 

9 

CONTINUE 


1011 

DO 11 1=1, *6 



K a IBASISU3 

GRAD = SHIN + (G(K,IQUT)**2)*PIV(K) 

IP (DAtiSCGRAU] ,Lfc,5) GO TO 11 

C memorise THE DEPENDENT VECTUR IN THE LOGICAL ARRAY • ' SET 1 ■ 

SET (K , NSET ] a , TRUE a 

C SE. THE MAGIC NUMBER TO 1 FUR DEPENDENCE OF THE NEXT BASIS VECTOR «ITH IOUT 
MN(K) S 1 
11 CONTINUE 

C MEMORISE THE SEPARATION Of- THE DEPENDENT VECTOR IN THE ARRAY » * SEP » » 

SEP AR INSET I = U5QR T (DM A X 1( 0 , 00 , S«IN) ) 

GO TO 2004 

C ^SECTION 5* -- — SOLVE THE EQUATION G*DD A = D • *ER ( INVERT G EVENTUALLY)- — - 
20 IF<KG,EG,1) GO TO 1121 

1120 DO 120 1=2, KG 
KBACK = KG+l-I 
K = IBASIS (KBACK) 

2120 DO 120 JS2,I 
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KBACK1 a KG-I+J 
K 1 s IBASIS(KBACKI) 

IF ( .NOT i INV J GO TO 120 

1220 DO 220 LI = I, KG 
L - IBA5IS(L13 

220 CCK,L) = C<K,U - G(K,K1J*C(K1,L) 

120 DDACK3 s UDACK) - G (K, K1 ) *DDA CK 1 ) 

1121 DU 121-151, KG 

K = IBAS1S ( I 3 

121 DDACK) = DD A t K 3 /AD (K ) 

C *S£CTI0N b* --FIND THE STRUCTURE OF THE SET--**-- « ------- 

IP (MQDE.EQ.O) 4;0 TO <3999 

IF (NS£T,EQ,Q3 GO TO 2« 

IF (MODE , LT . 5 3 GO TO 24 

C KftlTE THE DEPENDENT SETS 
WRJTEC6,621) 

62 1 FORMAT C / 1 1 X » * DEPENDENT SETS OF PARAMETERS f / IX,* SEPARATION 1 / 3 

1022 DO 22 jsl,NSET 

1023 DO 23 1=1, Ni 

IFCMNCI3 .EQ.O.AND.SETCI, J) ) IOUT = I 

23 CLEAR ( 1 3 = SET ( I , J) 

CALL TRADUC(CLEA« P N1 ,Nw) 

wRI TE ( 6,622) SEPAHCJ3, C WH c 1 3 , COMMA , I = 1 , Nw ) 

622 FORMAT ( 1 X , £9, 2/ ( 1 OX, 24 ( Aft , A 1 3/)) 

IP tMODE.LT.63 GO TO 22 

k = 0 

1012 DO 12 1=1, Ml 

IFCMNCI3.EQ.0J GO TO 12 

I F C , NOT . SET C I , J 3 3 GO TU 12 

K = K + 1 

GCK,K) = -GCI,IOUT}+AD(IOUT3/AD( I) 

RH (K 3 = wA(I3 
12 CON ( I NUE 

14 RRITEC6,61«3 wA(lOUT],PEQ,CRRCl3,PEQ,Gn,I),I=I,K) 
blii FORMAT ( / I IF «,A4,A3,« 1, THE N ' , 6 ( 3X , A4 , A 3 , 1 PE9 , 2 ) / 
l(19X,6t3X, A4, A3, £9,23/33 
22 CONTINUE 

24 WRITE C6, 626) N1,THR, CMN(K) ,K=1,N13 

624 F0RMAT(>1 ***THERE ARE', 13, • PARAMETERS IN THIS PROBLEM , 

1 THE SEPARATION THRESHOLD wAS',£ 9.2 /» MAGIC NUMBER f ,36l2/) 

IF tNSET.Eu.03 GO TO 32 

IF(M0DE,LT. 3) GO TO 32 

C *********** ****** A***** UNION OF THE DEPENDENT SETS ****★*****■************* + *** 
1125 DO 12b 1=1, N1 
125 CLEAR 1 1 3 = .FALSE, 



M S E T C = 0 

1025 DO 25 J=1,NSET 

IF CCLEAkC J) ) SO TO 25 

NSETC = NSETC + 1 

1026 DO 2b K=J,NgfcT 

IFCCLfcARCK)) 60 TO 26 

1027 DO 27 1=1, Nl 

IF (SET (I, J), AND, SET ( 1 , K ) ) GQ TO 1028 

27 CONTINUE 

GO TO 26 

1028 DO 28 1=1, Nl 

28 SET {!» NSETC) = SET C I , J ) , OR , SET (I , K ) 

SEPAR (N5ETC) = AMIN1 CSEPAR C J) /SEPAR (K) ) 

CLEAR (K) = .TRUE, 

26 CONTINUE 
25 CONTINUE 

C *SECT10N 7* PREPARE AND WRITE THE FINAL DIAGNOSTIC — — — 

1029 DO 29 J«1,NSETC 

1030 DO 30 1=1, Nl 

CLEAR(I) = (MN(I),Ev),l) t AND,SET{l,J} 

30 CLEAR8CI) = (MNCI) ,EG,0),AND,SETCI, J) 

« CALL TRaDUCCCLEAR,ni,nh) 

WRITE(6,631) J,SEPARCJ), (wH(I), COMMA, 1=1, Nw) 

631 FORMAT (// * ***DEPENDE NT SET NUMBER', 13, » ***SEPAR AT ION =!,E9,2/ 

If *i/l * a TRUE VALUE 15 OBTAINED FOR » / { « * 1 , 8X , 2q ( 44 , A 1 )/) ) 
CALL TRADUCCCLEAHB,Nl,Nw) 

WRITE C6, 629) (NR 1 1 ) , COMMA, 1 = 1, Nw) 

629 FORMATC * IF IS KNOWN THE TRUE VALUE OF '/(' * f , 8X , 24 C A4 , A 1 )/) ) 

29 CONTINUE 

32 IF (MODE , LT , 2 ) RETURN 

CWRITE The name OF INDEPENDENT, IRRELEVANT, DROPPED AND UNUSED PARAMETERS 
1033 DO 33 1=1, Nl 

CLEARCI) s MN(I),EQ,2 

33 CLEARS C I ) = IR 1 1 ) , AND, CMNS f I ) . NE „ 0 ) 

CALL TRADUC(CLEAR,N1,NW) 

WRITE (6,634) (WH C 13 , COMMA, 1=1 , NM) 

634 FORMAT (// 1 A INDEPENDENT PARAMETERS >/(t ** , 2X, 24 (A<|, A1 )/)) 

CALL TPADUC(CLEARB,N1,NW) 

WHITE (6, 635) ( wR ( I) , COMMA, 1=1 , Nw) 

635 FORMAT!' *'/i * IRRELEVANT PARAMETERS '/£' * ' , 2X , 24 ( A4 , A 1 )/)) 
1036 DO 36 1*1, Nl 

CLEAR ( I ) * MN( I) ,EQ,0»AnD,MN 5(I) , NE , 0 
36 CLEARti(I) = MnSUJ.EQ.O 
CALL TRADUC£CLEAR,N1 ,NW) 

WKI7E (6,637) (WR(I) , COMMA, 1=1 ,Nw) 



.637 FURMATC *'/' * NOT EST IMA T&O ' / C * * « , 2 X , CA4 , A 1 ) / ) ) 

CALL TRAOUCtCLtARb.,Nl ,Nw) 

^RITE(6,636J fwR(IJ , COMMA, 1*1 , Nh) 

638 FORMA T C 1 *■/» * NOT USED'/C 1 * » , 2X , 24 C A*4 , AI )/)) 

TIME: = INTVAL(2, 03/1000, 

WRITE(6,60b) OE.T,TI»fc 

60b FORMAT(///« (JETs i , 022. lb, ' TIME s«,F9.3,' SfcC*) 

9999 RETURN 
6999 wHITE(6,999) 

999 FORMA T {/// i OX , » ***PRUBL&m WITHOUT PARAMETER, COR HY-PASSED') 
RETURN 
END 
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SUBROUTINE THADUCCFOUND, Nl,K) 
DIMENSION FOUNDCNl) 

C 

COMMON/NR I TE/WRC363 , WA(36) 

C 

DATA BLANKS EMPTY/ 1 ','NDNE'/ 

LOGICAL *1 FOUND 

KsQ 

1001' DO 1 IbI,N1 

NRCIJ = BLANK 

IF t , NOT ,FOUND ( I ) 3 GO TO 1 

K = K + 1 
WR£K) = N A ( 1 3 
1 CONTINUE 

IF (K , GT , 0 ) RETURN 

K = 1 

WR ( 1 ) = EMPTY 

RETURN 

END 



I 


f*' 

>V 

I 


$ 

0 : 


J - 1 

CO 

ID 


i SUBROUTINE. ERROR CN 1 , N3, Ml , V, CORK, RELERR ) 

} DOUBLE PRECISION PROD,DDA,D 

DIMENSION MnHOLD (36) 

C 

COMMON/ST ATE/ND, NS, KSK, XDT,NSTP, 1ST AT, INIT (12) , SC ALE (12) , XI NITC2«) ST ATE 
l,YCC2GQ, 12) » VM(20Q# 12) , YW (2400 ) STATE 

C0MM0N/PRM/MNC37)»MNSC37)*SENSIVC3fe)# AC3b)» AMIN(36), AMAXC36) PRM 

1 , DA (36) i EH (2400 ) , DER (24Q0 f 3b ) PRM 

COMMON/IDEWT/KSwTCH,ITPL,IPLOTl,IPLOT2 f ISKIF , ITMAX , THR,MC0R , ICOR 
COMMON/NVRT /D(3b),DDA(36), PROD (36, 36) 

C 

IK(N f l,EQ,0) GO TO 2000 

1001 DO 1 1=1, N1 

mnholdcd = mncu 

1 MN(I) = MN5CI) 

CALL COR(N1,N3,THR,10) 

DQ M 5 1 , N 1 

2 MN C 1 3 = MNHQLD(I) 

J c 0 

ERMAX = 0, 

VI = 0, 

RELERR = 0, *> . 

do e i = i , ns 

V = 0 • 

OUT = 0, 

DO 9 K s 1 ,ND 

OUT = OUT + CYMCK,n)**2 

J = J + 1 

ERMAX = AMAXl (ERMAX, ER(J)**2) 

9 V = V t (YC(K,I)*YM(K,X) )**2 
RELERR = RELEHR + V/UUT 

VI s VI + V 
8 CONTINUE 

RELERR □ KELERR/NS 
v = vi/o 

CORR =1, - RELERR 
RELERR = SORT (RELEHR ) 

C AUTOCORRELATION of THE RESIDUALS 
2000 V2 a 0, 

1022 00 22 1=1, NS 

L = (I-l)AND * 1 

1020 DO 20 K=1,ND 
W= 0, 

LI = 1*ND - K. + 1 

1021 DO 21 J=L, LI 


* 




190 


JPKfhl s J + K-l 

21 Vi X VI + ERCJ)*E8(JPKM1) 
KPLM1 = K*L-1 

20 YwCKPlMl) s V1/£L1"L+1) 

22 V2 * V2 + V w t L ) 

V2 = V2/NS 

IFCNi.EQ.O) RETURN 

C ESTIMATION OF PARAMETERS VARIANCE 
1015 00 15 N s i,Nl 
y DAtN) = 0, 

ODACND 9 0. 

IFCMNCNi ,t0,0) GO TO 15 
= PRQDCn,N)*ERMAX 
* 'tjfflfol = PR0D(N,NJ*V2 
•^OA(N) = SQRT(P)/0(N) 

DPACN) = SORT (Pi)/D(N) 

13 CONTINUE 
RETURN 
END 
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SUBROUTINE CRUNCH(NTAPE,NHUN,KSTOP,IUSE?) 

DIMENSION IwRCRD(14},ISTQRCi2),YCKAXU2),KQVERC12),YCSC2QQ,12) 

C 

CQMMON/STATE/ND,NS,KSK,KDT,NSTP, 1ST AT, INITC12) , SCALE Cl 2) ,XINIT (24) STATE 
1,YCC200,12) ,YM(200, 12),YW(240Q) STATE 

C 

DATA RUN,D^,TA,CNTINU,ENO f STOR/'RuN * , « DAT A * , « **** l , < END «,'*STOV 

c m 

KDTS=KPT*KS^ , 

WRITEC6,101) NTAPE,NRUN,KDTS 
101 FORMAT C 1H1, 1 NTAPEM2,' NRUN i , 12, 6X, ' KDT= MS//) 

READCS^SOa) CODE f I STOP 
502 FQRMATCA4, 6X, 1211) 

WRITEC&,110) ISTOR 

110 FORMAT C 1 X r * VARIABLES STORED ARE IDENTIFIED 8! A 1 IN COLUMNS 11 T 
10.22 AFTER THE COMMAND *STDR AGE ■ / / IX , ' *STQR AGE *1211) 

IF (CODE,NE,STOR) GO TO 60 

C WRITE THE FIRST CARD ON UNIT IDSET 
71 w.RITECIl>5tT,701) nT APE , NRUN, KUTS 
701 FORMAK'RUN »,I2,rs>,I2,6X,I5,6QX) 

KVV a 1 

1001 DO 1 1=1,12 
KOVERCI) = 0 

IFCISTORCI) ,EQ,0) GO TO 1 

YCMAX(I) s 0, 

1002 DO 2 J= 1 , ND 

2 YCMAXCI) = AMAX1CYCMAX(I),AB5{YC(J,I))) 

IFCYCMAXCI) ,GT l 9999,Qk t YCMAXU) f LT»100 ( ) KOVERCI) = 1 
KVV = KVV* Cl - KOVERCI)) 

1 CONTINUE 

IfCKVV.fcQ.n GO TO 30 

WRITEC6.603) 

603 FORNATCM ****0UTPUT DATA HAD TO BE RESCALED BEFORE STORINGi/ 

1» TO OBTAIN ENGR, VALUES MULTIPLY STORED VALUES SY : ' // ) 

1004 DO « I = 1 ,12 

IFCISTORCI)*KOVERCn*YCMAXCI) .EG), 0) GO TO a 

YCMAXCI) = YCMAXCD/8000, 

10 03 DO 3 J ». 1 , ND 

YCSCJ,I)=YC(J,I) 
i YCCJ,1) = YCCJiD/YCMAXCI) 

YCMAXCI)=YCHAX.CI)*SCAlECI) 

WRITE C6, 604) YCMAXClj/I 

604 FORMAT C IX, 1PE10.3, 1 FOR CHANNEL * ,13) 

4 CONTINUE 

30 J1-. = ND. 


non 


1005 DO 5 1=1,12 

Y*CJ1,I) = KSTOP 

5 YCtJWI) = KSTOP 

C— wRITfc THE: DATA CARDS- 

1006* DO 6 1=1,12 

',v : IF ( ISTQR ( 1 ) ,£0.0) 00 TO b 

J=0 

NCARD=0 
CODE = DATA 
7 NQ ARD a NCARD + 1 
1017 DO 17 K=l, 14 
IwRCWDtK) = 0 
KP; = K+J 

IFCKPvl.GT.Jl) go TO 1/ 

IwftCRDCK) = YC C*P J , I ) 

17 CONTINUE 

C WRITE THE DATA CAKDS UN Un I T IDSET 

WRITE UPSET, 7 08) CODE, I, NC ARP, I*RCR0 
70B FORMAT (A4, 12, IX,I2, IX, lalS) 

J = J + 14 

IFUl.LT.J) GO TO lb 
CODE = CNTINO 
GO TO 7 

lb *RITE(b,616) I 

61b FORMAT ( 1 V ARI ABLE < , 12, ' IS STORED') 

6 CONTINUE 
9 WHlTE(b,109) END 

1 09 FORMAT ( 1 X, Au) 

C WRITE ThE LAST CARD On UNIT IDSET 
wRITEt IDSET, 709) End 
709 FORMAT (A4, 7bX) 

SET CALCULATED VALUES WHICH HAD TO BE RESCALED BACK TO THEIR 
ORIGINAL VALUES FOR PLOT AND PRINT PRUGRAmS 
DO 20 1=1, 12 

IF (lSTQH(I)*KOVEK(n*YCMAX( I) ,EO, 0) GO TO 20 
DO 18 J=1 ,nd 

18 YCCJ,I)=VCSCJ,I) 

20 CONTINUE 

RETURN 

60 WRITE(6,660) 

660 FORMAT(/> ***NO STORAGE PARAMETERS, ALL VARIABLES STORED') 

DO 61 1=1,12 

61 ISTORCI) = 1 
GO TO 71 
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: SUBROUTINE PLQTXNUW I2,KSKIP) 

DIMENSION PLOmon,X.H<4) # KP<«) 

c 

COMMON/STATE/ ND,nS,KSK,KDT,N5TP,ISTAT,INIT(12} , SCALE (1 £) , 

I XINIT(243,YCC200,123,YM(200,12),YW(240Q) 

COMMON/PLOT/ SYM6(4) 

C 

DATA DOT/' I V, BLANK/’ >/ 

C 

DT = KDT*KSK/1000» 

1001 DO 1 I = 1,101 

1 PLOT ( I ) = BLANK 
PL0T(26) s DOT 
PL0TC76J = DOT 

1002 DO 2 J»l,a 
KPCJ) s Q 

2 XM(J) - l.E-50 
IFCIl.EQ.O) G 0 TO 2005 

1003 DO 3 I»1,ND, KSKIP 

XM(13 =AMAXlCXMU),ABStYMCI,m 3 3 
AfcST = YCCI,m 

3 XMC2) =AMAX1(xm(2),aBSCAEST) 3 
2005 IP (I2,Eu t Q) GO TO 5 

1004 DO 4 1=1, NO, KSKIP 

XMC33 ®AMAX1(XM(33,ABSCYM(I,I23 3 3 
AEST2 = YC ( I , 123 

4 XM(U3 =AMAX1(XM(43,ABSCAEST233 

5 WRITE 16* 105 j Il,SYMBC13f5YMBt2),I2,SYMBC3),SYHB(4) 

105 FORMATCl^i,iOX, ‘MEASURED AND COMPUTED TIMfc HISTORIES'.//' SYMBOLS 
1 /VARIABLE' ,12, «X, Al, ' MEASURED, »,A1,' COMPUTED, /VARIABLE', 

2I2,4X, A1 , ' MEASURED, »,A1,' COMPUTED/ ', 1 6X T I M E'/' ',1Q1C*,')3 
XM1 =AMAX1 CXM(l ) ,XMf2) } 

XM2 sAMAXl CXMf3>,XMt4) ) 

1007 DO 7 I = 1, NO, KSKIP 
T = CX-13*DT 
IF (1 1 « EQ, 0 3 GO TO 6 
KPLOT = £2S,*YM(I,Il-))/XMl + 26 
KP'Cl) ~ KPLOT 
PLOT (KPLOT) * SYMBfl) 

KPLOT = (25, *YCCIfI13 D /XM 1 + 2b 
KPC23 s KPLOT 
PLOTCKPLOT) = SYMtJ£23 

6 IF (12* EG ,03 GO TO 8 

KPLOT » C25 t *YMCI,I233/XM2 + 76 
KP (33 = KPLOT 



f PLdT(KPLOT) a 5YMBC43 

1 KPLQT S C2b,*YC(I, X2J )/XM 2 + 7b 

I KP(4) = KPLGT 

t PLOT ( KPLOT 3 = SYMBfflJ 

I a WRITE Ca# 109] PLOT,! 

| 108 FORMAT ( * M 0 1 A 1 , 4X , F 1 0 . 31 

! ioio oo io j = i,« 

:f KPBLK = KP ( J 3 

io plotxkpblk) = blank 
■ I PLOT (76) = DOT 

•# PLOT (26) = DOT 

t 7 CONTINUE 

£ 11 rtHITE(6,1113 Il#XMC13»XH(2)rI2,XM(3),XMCfl) 

| ‘111 FORMAT t 1 MAXIMA I VARIABLE * » 12, 1 M£ AS= 1 , l"t 1 0 , i , 1 » COMPs*, E10,i 

f 1,7X,< VARIABLE* ,12, i MEAS-* , E10 ,3, 1 , CQMP=* ,E1C,3) 

if RETURN 

;i end 
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